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Introduction 



The VIC 20 is an exciting computer, designed to ensure that you can easily make the most of 
its colour and sound potential. 

This book has been great fun to write, because the VIC "co-operates" so well with the games 
programmer. The BASIC is fast and unambiguous, the range of noises and colour effects is prac- 
tically infinite, and— despite the slight limitations of the large graphics— allows some splendid 
screen displays to be created, especially with the POKE command. 

Although we hope you'll enter these programs as we've listed them here, and that you'll enjoy 
playing them, the real value of a book like this lies in what you do with the programs to adapt 
them to make them your own, and the ideas you get from them to use in new programs of your 
own. 

We've tried to choose a wide range of programs to show how flexible the VIC can be, and to 
give you some ideas of the kind of programs you can write and the easiest way to achieve the 
effects you desire. 

The printer reproduces all the VIC graphics, and to make the listings as clear as possible, 
we've printed them fullsize, just as they rolled off the printer. Despite this, some of the colour 
commands may be a little hard to fathom out. Here's a list of the colour commands, along with 
REVERSE ON and REVERSE OFF, as reproduced by the printer. This should help in reading the 
listings: 



10 REM 


II a II 


BLACK 


15 REM 






29 REM 


li gill 


WHITE 


25 REM 






30 REM 


II lull 


RED 


35 REM 






40 REM 


Ilk II 


CYAN 


45 REM 






50 REM 


"I" 


PURPLE 


55 REM 






60 REM 


"li" 


GREEN 


65 REM 






70 REM 


ii mi; 


BLUE 


75 REM 






80 REM 


"IB" 


YELLOW 


85 REM 






90 REM 


"S" 


REVERSE ON 


95 REM 






100 REM 


"9' 


11 REVERSE OFF 



We must pay tribute to the great programming contributions made by Adam and Lance Bur- 
bidge, Christopher Hutber, M. Kendall, Graham Charlton, and Ken Mahogany. Without them, 
this book would have failed to explore the full potential of the VIC 20. 

Tim Hartnell 
Mark Ramshaw 
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Monster Maze 



You start off in a maze filled with dots in the top left corner, although you don't actually appear 
until you begin to move. As you move through the maze eating dots you gain points. 

Soon the maze monsters will be after you and you must take evasive action . If they eat you the 
game will end, as it will if you eat all the dots. 

Eating one of the large red cherries means you can go and eat the monsters for extra points. 

But after a while they will get over theirshock and come after you again. They are coloured purple 
when you can eat them. 

W moves you up, 

A left, 

D right, and 

X for down. 

Good monster hunting! 

18 P0KE36879 .13 = CO=38720 : SO7690 : CL=38400 : POKE650, 255 
15 """"•'"—- 

28 FORW702TO8164STEP22 : POKEI+CCL 6 = POKEI , 97 : P0KEI+21+C0, 6 : POKEI+21 , 225 

25 NEXT : P0KE8164, 252 : P0KE8185, 254 

30 FnRI=8165T08194 : POKEI+CO, 6 : POKET , 98 : NEXT 

35 PRINT"insi " 

40 FORI«7703TO8143STEP22: POKEI+CO, 1 :P0KEL 46: POKEI +19+C0, 1 =P0KEI+19,46 
45 NEXT :F0RI*8144T08162: POKEI+CO. 1 :P0KEL46:NEXT 
58 PRINT"ffln»IB&iMa %. SI i in H. %%mm " 

55 PRINT"»M. ,,91 .M " 

m PRINT'^PM. 5-S 1h^ 9m>*. PI i il S3 " 

65 PRiNT'iraanai aaia sa " 

70 print" wean a.sas— a.a— ■ ■ar" 

75 PRINT"»IW 831 " 

80 PRINT" OS *&■■«. Hi i ■ ■«■ Saaari. SaaMST " 

85 PRINT" ■!«.■«........»«....." 

90 PR INT" S 9m,Z#*mmm wdriBM.Bfli!«.dB n 

95 print" m w, , . sa s»«i m. as m. as " 
100 prtnt" anal. sa «. . . --a «. as ia. " 
185 print" a a. a a. a a ■— a- sea as. sa ia, " 

ii0 print"* m,...a fl«i.....afli 11 

115 pr I nt "im.... a— si. ■snaa.Sa-a.saia" 

120 print"»b«««. a a sa «. sa " 

1 25 pr i nt " ma. . . . as ■Baai. n m ? ■«. sa " 

130 PRINT "HEmmST 531 * 39 !al. 3a I*. 3a " 

135 print"hibi a a. a a. . . sa m. sa as. sa " 

140 PRINT" SB %•! Saw— I 4, 5S iW. ahfa. Rfa" 

145 PRINT"W*" 

158 DIMX<2),V<2),P<2),C<2) 

155 F0RIa8T02:P(I)=32:X(D=9+T:V<D=12 

168 NEXT:va>*13 

165 C<0>*2--Ca>«5:C<2>=7 

178 DIMfl(2),B(2):FORIs0TO2 

175 PCI )=INT(RND( 1 >#3-l > = B< I >=INT<RND< 1 )*3-l ) = NEXT 



y 



185 P=7703:S«10:F«0:Q=0 

200 FORI=0TO2 

205 GETR*:!FR**'"»THEN230 

210 D=<R*="0 ,, >-<fi$="D , '>+((R**"W")-(fl$a"X"))*22 

215 IFPEEK<P+B>=46THENS=5+10:Q*Q+1 :G0T0225 

216 IFPEEK(P+D>=e!RNTi!)O0THENF=l :S«S+20:TI*»"000000" "-00T0225 

217 IFPEEK<P+DK>88ORF=0THEN224 

218 FORPE*0TO2: IFSC+V<PE)*22+X<PE)OP+DTHEN223 

219 8*S+50 

220 V«PE)=12:X<PE)*9+J:P<PE)«32 

221 !FJ=1THENVCJ>«13 

223 NEXT:G0T0225 

224 IFPEEKCP+D>O32THEND«0 : GOTO230 

225 POKEP, 32 = P*P+B : POKEP+CO, 3 '■ POKEP, 81 

230 PEaPEEK(SC+(V<n+B<I))*22+X(!)+fl<I)) : TPPF*32ORPE*46ORPE=81THEN300 
235 X=P-SC : Y-INKX/22) : X»X-Y*22 

240 B<I>"0'-fl<I>«a 

241 IFF«lTHENB<I)-CV(I)<V)-<V<I»V):fl<I>-(X<I>OO-<X<I»X>s00T0246 

2*5 BC!)*<V<I»V)-<V<I><V):fl<I)=<X(I»X)-<X<I)<X) 

246 PE*PEEK(SC+«V(I)+Ba))*22+X<I>+Ra>) 

247 I FPE=320RPE=460RPE=8 1 THEN350 
250 B(D«0 

255 PE«PEEK<8C+V<I)*22+X<I)+fl<D) 

260 IFPE*32ORPE=46ORPE=81THEN300 

264 R(I)*0:lFFslTHENB<I)s<V<I)<V)-<V(n>V):GOTO270 

265 B(I)«<V<I»V)-(V(D<V) 

278 PE=PEEK<SC+<V< ! )+B( I ) >#22+X< I ) ) = IFPE*32ORPEs46GRPEs81THEN350 
285 P<I)sINT<RNBa)#3-l>:Ba>*!NT<RMTKl>*3-!> 
290 PE=PEE!«SC+(V(T)+B<I))*22+X<:i^+fla)) 
295 IFPE*32ORPE*46ORPE*81THEN350 

299 RCI)*0:BCDa0 

300 IFRNDC1K.5THEN345 

301 Xs0:V*0 

305 IFB<IK>0THEN320 

310 V*i:lFRNTKl» t 5THENY«-l 

315 GQTG325 

320 X*l:lFRNB<l».5THENX*-l 

325 PE*PEEK < SC+ < V < I > +V ) *22+X < I > +X V t ppf=320RPE= 4fiORPF=5 1 TMEN335 

330 V=-V:W=-X:PEaPEEK<?C+<Vn)+V)i22+Xf TUX) : IFPEO32RNHPEO46RNDPEO81THEN350 

335 fl<I)aX:B(D«V-GOTO350 

345 IFRND<n>.8THEH235 

350 POKESC+V( I )*22+X< I) , PC I > : POKFCL+V< I >#22+X< I ) , 1 

351 IFP< ! )=81THENP0KECL+V( I)*22+X< I) , 2 

355 V(I)aV<I)+B<!):X(I)*X<I)+R<I):P<D=PEEK'''8C+V<T>*2?+y<n) 

356 I FSC+V < T > *22+X ( T ) bPRNBF*0THEN 1 00R 

360 POKECL+VC I >*22+X( I ) , C< I ) ■ POKESC+V< I >#22+X< 15,88 

361 IFF*1THENP0KECL+Y< I >*22+X< I > , 4 

365 NEXT:IFTI*>"000015"THENF«0 

366 IF(3>216THEM1000 
370 GOTO200 

1000 poke650, = fori*1to2000 : next 
1005 print h :mscore"s 



Hyperspace Escape 

Sail boldly through space, zapping the asteroids and the alien. Watch out for the UFO, 
colliding with him or one of the asteroids wastes one of your 3 lives. 
Z rotates you left, 
C rotates you right, and 
M thrusts you forward. 

'return' will hyperspace you to another part of space, and 
'space' will fire your laser cannon. 
How many points can you gain by shooting asteroids and aliens before you are destroyed? 

5 S*0 : 1.1*3 = P0KE36879, 8 • PRINT'S" 

1 8 SO7680 : CQ-30720 : CL-38400 ■ RS«7K«a 

16 Van :v=igiuaiigx*0i8V«0 

28 FN8 

25 FORI-0TO7 « fl( I )-7680+INT<RND< i >«506> ! D< I )»INT<RNDC 1 >*3+21 ) • IFRND< 1 ». 5THEND< I ) 

—DC I) 

30 NEXT 

35 P0KECL+Y*22+X, 3 : PQKESC+V*22+X, 187 

36 IFflS>0THENPOKEflS,32 

40 ffflsXNT<RND< 1 >*3+21 ) = IFRNDi 1 ». 5THENflC=-flD 
45 flS«INT<RND<l)#586)+7f:ftPi 

50 FORI*0Tn7 : K-PEFK< 197) : IFRBS<SX)+RBS<SY>«0THENPOKE36877, : C0TQ55 

51 P0KE36878, 2 : PQKE36877, 235 '■ G0T055 
55 D<»D+<K*34>-<K*33> = IFD<07HEND*D+4 
60 IFJD3THEHIMD-4 

65 8X»SX+«Dal)-<D»3))*<K=36) :SY'=3V+«D*2)-<D»0))#<K«36) 

70 IFSX<-17HENSX«-1 

75 IFSX>1THENSX»1 

80 IFSY<-ITHENSY«-1 

85 IFSY>1THENSV»1 

90 P0KESC+V*22+X, 32 • X»X+SX : Y-Y+SY 

95 IFK»i5THENX*INT<RND<i>*22> :Y«INTCRND<1)*23> 

100 IFXC0THENX-21 

105 IFX>21THENX*0 

110 IFY<0THEH7*22 

115 IFY>22THENY*0 -^ ov 

116 IFPEEK(SC+Y*22+X)O32THEN1000 




120 PQKECL+V*22+X* 3 : O107 • IFD*2THEN01 14 
125 IFD-3THENOH5 
138 IFD-0THENO113 
135 P0KESC+V*22+X,C 

140 IFR<I>«0THEN200 

141 IFfl<I>»SC+V#22+XTHEN1000 
145 P0KEflCI),32:fl<I)«fl<n+D<I) 
150 IFfl<IX7680THENflCI)=fl(I)+50S 
155 IFfl<I»8185THENflCI>«fl<I>-586 
160 P0KSKI>tC0,2:P0KEA<I>,81 
208 IFKO32ORINT<I/2>«2»ITHEN260 

201 P0KE36878, 12:FQRX1«255TQ2303TEP-1 : P0KE36877, XI : NEXT 

285 Xl*X:VlaV:DXs<D«3)-<D«l) :BV*<D=0)-<D*2) :C»64: IFDVO0THENC*93 
210 X1«X1+DX:V1-V1+DV 

215 P0KECL+Y1#22+X1 , 5 • IFPEEK<SC+Yl*22+Xi >*32THEN240 

216 F0KE36878, 15 : PQKE3S877, 130 
220 P0KESC+Vl#22+Xi,42 

225 FORJs0TO7 i IFflC J)*SC+Vl*22+XlTHENfl=fl-l : fl< J5-0 : S*S+20 

230 NEXTJ 

231 IFSC+Y1*22+X1*RSTHENS«S+100 : RS*0 

232 POKE36877.0 
235 COTO250 

248 P0KESC+V1*22+X1 * C = IFXK21RNDXi>0RNDYK22RNDVi>0THEH210 

250 X2 a X ; V2 s8 V 

25 1 X2-X2+DX : V2»V2+HV : P0KESC+Y2*22+X2 , 32 

255 IFX2CX10RY2OV1THEN251 

256 POKE3S877.0 
260 IFRS*0THEN300 

265 POKEflS/32: IFRNDCi».9THENRDaINT(RNr<l)*3+21) : IFRND<l)>.5THENRD*-flD 

267 RS*RS+RD: IFPEEK<RS+RD*2>*81THENRD*-RD 

270 IFRS<7680THEHRS*RS+506 

275 IFRS>S185THENflS=RS-506 

288 POKERS+CO , 7 : POKERS , 88 

235 IFRS=SC+V#22+XTHEN1000 

390 NEXTI : IFfl*0THEN20 

305 IFR3=0fiNDRNDCD>.9THEN40 

310 OOTO50 

1080 PRINT"HSCORE"S 

1005 FORI«1TO2000:NEXT:LI*LI-1 ■ IFLD0THENPRINT"T :D0T016 

1010 POKE198..0 

9999 END 



MWkJPWkHkHifWhlWMaiaMtWMBiBkBtffliffli 



BLK\/wHTYR £D \/cVNY^RYGRNVBLu\/vtLV R V N S VoFF 



'■fflvcm 1 



CTRL 



mmmmmmmmmmmi 



/!B*\/H]n 




G untight 

Outshoot the fastest draw in town, VIC. Move up and down the screen, avoiding the VIC's 
shots and fire back. 
Z moves your cowboy up, 
C moves him down, and 
M fires your revolver 
Good shooting, pardner. 

9 M^ m m m m mm B Bam ' R*»"MiiiiwHiwiiw»»ii" 

10 P0KE36879* 136: PRINT'S" 

19 CO30?20 : SP»0:SO0 

20 BP-0:BC«0:P«4:C«12 

29 F0RI«7689T08185STEP22 : PQKEI+CO, 9 : PQKEI+i+CO, 9 '• POKEHtf+CO, 9 

30 POKEI > 180 ' POKEI+L 160 ■ PQKEI+2. 160 ; NEXT 
50 KaPEEK<197):IFK-64THEN100 

55 P»P+<K*33>-<K-34> * IFP<2THENP«2 
60 IFP>i6THENP«16 

69 PRINTLEFTf<Df;P-l>" MIMi rill milk rfl Xlllllifc IV) 

70 pRiNmiiiiiwit^ "*■■■■« runiiii 

100 IFRND<1».3THENC«C+INT(RND<1)*3-1)-OOTO110 

109 IFRND< 1 ». 6THENC-C+<C>P)-<C<P) 

110 IFC<2THEN02 
115 IF016THEN016 

120 PRINTLEFTf<DIM>l>;LEFT$<fi*,17>" MIM ifll XHIIMI rfH XHIIIi* Wi 

125 PRiNT"i«miiiii»r niniH aria nun " 

130 IFKO36THEN200 

135 PRINTLEFTf(D*iP)"i P 1^111^? ■*« dUIIUftel ■ "; 

140 PRINT'-MMB IM4ni MIIIBnfl Sift" 

154 PQKE36878, 14 « P0KE36877, 135 • FQRI-1TQ75 : NEXT 

155 I«4:K«64 

168 PE-PEEK<7S80+P#22+I> 

165 PRINTLEFT*<D*,P+i>JLEFT*<R*,I>"i." 

170 FORJ*ITO10:NEXT 

175 PRINTLEFT«<D$,P+l>;LEFT$<fi«,I>" " 

180 I»I+1 

181 IFI>10THENPQKE36877,8 

182 IFI>6RNDI<1 1THENPQKE36877, 280 « PQKE36878, 5 
185 IFK22RNDPEK32THEN160 

180 IFPE*32THEN280 

195 PQKE36877, 258 '• FQR>1TO50 = NEXT : P0KE36877, 

197 IF<P«CORP+l*C)flNDI>16THEN400 

200 IFRNIX 1 X. 95flND<RND< 1 X. 8QRRBSCC-P»1 )THEN58 

205 1*16 

210 PRINTLEFTf<D*.C>;LEFT*<fl*a8)"Mi«TMIII*flfc8»"J 

215 PR INT "MUM 81 VMIIB MM " 

216 P0KE36878, 12 ■ PQKE36877, 135 : F0RJ-1T075 '• NEXT 
228 PE«PEEK<7680+C*22+D 

225 PRINTLEFT$<D*> C+l ) i LEFTKCfl*. I ) "■• " 

230 FORJ*1TO10!NEXT 

235 PRINTlEFT*<D*,C+l>;LEFT*<fl*,I>" " 



240 I«I-1 

241 IFK12flNDI>7THENP0KE36877, 200 • P0KE36878, 5 

242 IFK8THENPOKE36877,0 
24S IFI>0flNDPE*32THEN220 
2S0 IFPE-32THEN59 

252 P0KE36877, 250 : FQRJ*1TO50 : NEXT ■ P0KE36877, 

253 IF<COPflNDC+lOP)ORI>4THEN120 
255 SOSC+1 

308 PRINTLEFT*<D*,C>" Mill Mill 
385 PRINrXUIIIMik-N 1 



Hi"i 



mil min mini » 



310 F-l 

315 COTO1000 

400 PRINTLEFT*<D*i C) i LEFT*<fl*, 17) " 

405 PRINT-milWi-nHli" 

410 F"2:8P»SP+i 

1000 P0KE3687S, 15 : P0KE36876, 200 i FQRI«255TO130STEP~1 . 3 : P0KE36877, I : NEXTI 

1001 POKE36877,0:POKE36876,0!FORI"1TO500:NEXT 

1003 P0KE36878, 12:P0KE36876, 140 : FORI -1 TO450 : NEXT 'POKE36876,0: FORI -1T01 00= NEXT 

1004 P0KE36876, 152 • FORI-1TO430 :NEXT : P0KE36876, : FORI*1TO150 : NEXT 

1005 P0KE36876, 140 •' FQRMTO150 : NEXT : PQKE36876, = F0RI«1T075 : NEXT 

1006 PQKE36876, 141 :FQRI»1TO700: NEXT 

1007 POKE36876.0 

1008 IFSP«5ORSC«5THEN1020 

1009 IFSPe5QRSO5THENl020 

1010 IFF-1THEN120 
1015 IFF-2THEN65 
1020 PRINT"3M)OTilCQMPUTER"SC 
1025 PRINT"HMMIIIMIHIHWr , OU"SP 
1030 POKE198.0 
1035 ENS 
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Scramble 



Bomb the enemies defense installations and shoot down the fighters for points. 

As you move off the right of the screen, you appear on the left of a new landscape. Avoid the 

enemy rockets and fighters as they stream through the skies. The small red balls are fuel dumps 
and the large circular objects on stilts are ammo dumps. 

Bomb the club-shaped alien base to gain extra points. 

W moves your ship up, 

A backs it up, 

D accelerates it forwards (it is already moving forwards), 

X moves it down, 

S drops a bomb, and 

'space' fires your laser. 

Be careful not to crush into anything and try and avoid the flak thrown at you from the ground 
installations. 

I LR*1 

3 pnKEe^ ■ 233 

10 P0KE3S879, 8 '• Cn=307?« : 01=35480 '■ SO7680 

II x=fl:Vsg:B«0:S»0 

12 DIMMX«),FX<3>iWK3> 

15 IFLA>3THENLfi»l : RESTORE 

16 ONLflQOTO20;55il00 

20 PRINT-'IimWDIira^^ TTVnrtS OTUnfltllSH" ; 

m PRTKiT»Ai/i m "mi ^ Jamil nm mis^nr^w-w; 
30 print" s i/t mi^mi^xDami mumrn m "; 

35 PRINT-'liaiSn" 

40 POKE3S902,5:POKE38903,5:POKE38904,5:POKE8182, 124: POKES 183. 120: POKES 184, 120 

45 P0KE799S+C0, 3 : PflKP799S ■ 78 = P0KE7926+C0, 3 '• P0KE792S, 78 

TO POKE8140+CO/3:POKE8140,77:POKE8070+CO,3:POKE8070, 101 :QOTO150 



■ii 



S5 PR T NT " ri l MWIIWBWW)^^ m riT I 

60 print", mm e^ii ni ^mi ^mnmnam vm m m " > 

<& ppTWT»ii»««rwiiiBWjr"; 
78 print" flrvTWi mm"; 

75 PRINT-'miaNTVIlSWinitllSr^Ttfll " 

P.* P0KES8 1 1 +C0 , 3 : P0KE88 1 1 > 77 : POKE8024+CO , 3 > POKE8024 , 77 

85 P0KE7959+C0, 3 : P0KE7959; 100 '• P0KE7981+C0; 3 : P0KE7981 > 74 

98 POKE7920+CO, 3 • POKE7920 » 77 * OOTO150 _ „«-.-... 

100 pRiNT»awiaBHnnnD^^ m m mvwmtiryramrnwma m xn m% , 

105 print-mms hfl iri - mi in xNtiNBrromniiM wHKmv i 



lie PRiNT'iinnrwiiiMinrwiuri m 



!■" 



j 



115 PRINT-flrWaOynnilWIrW" 

159 FL«4SFI*4 

165 FORI«0TO3:FJi<I)-7767+I*44: IFI«1THENFX<I)«FX<I)-1 

170 IFI«2THENFXa)«F?i<I)-47 

175 IFI«3THENFX(I>«FX<I>-44 

188 RERDBJKI > : W/.i I >"BB< I > 

195 NEXT 

200 FORI-0TO3 



201 P0KESC+W22+X, 32 : OETfl$ : IFB-0THENPQKE36876, 9 
205 X«X+1+<R$»"R" )*2-<fl*«"D'» > '• IFX<0THENX«0 
210 IFX>21THENX»0:Lfl*Lfl+i:GOTO15 

220 V*V+<R**"W">-<fl*a»X"> : IFV<0THENV»0 

221 IFV>22THENV»22 

225 IFPEEK<SC+Y#22+X)O32THEN1000 

230 P0KECL+W22+X, 2 • P0KESC+W22+X, 62 

235 IFFK<I>»0THEN250 

240 P0KEF8< I > , 32 '• FXC I )»FX< I )-l : IFF5i< I X7680THENFXC I >«FX< I >+88 

245 POKECO+FX< I ) , 1 : POKEFSiC I ) , 60 

250 IFMfi(I>«»0THEN300 

255 IFMXC I )«BJi< I >RNBRND< IX. 90RBJK I >«0THEN300 

260 POKEMM I) , 32 : M5i< I >sMH< D-22 

265 IFMJiC I X7702THENPOKEMM I > , 32 '• MX< I )*BX< I > : POKEMX< I )+CO> 3 : POKEMSK I ) > 30 : GOTO308 

270 POKEMJi< I >+CO, 2 : POKEMJK I >-22+C0, 3 : POKEMKC I > , 22 : POKEMX< I >-22, 30 

300 IFR** ,, S"flNDB*0THENB«8C+V*22+X+22 

355 IFB-0THEN4PI8 

356 PnKF3£P.78 , 5 : P0KE36S76, B/25-75 

360 POKEB, 32 : B»B+22. 5 : IFPEEK<B)032THEN365 

361 IFPEEK<B+1)«32THEN395 
363 B«B+1 

365 P0KE36878,15:P0KE36877,175 

366 P-PEEKCB) » OPEEKCB+CO) : POKEB+CO, 2 : PQKEB, 42 : B»INT<B) : IFPO60THEN375 

370 FORJ*0TO3: IFFX<J)*BTHENF«<J)«0:P«32; 8*8+28 !FI«FI-1 

371 NEXT:f?nTO390 
375 IPPO30THEN385 

380 FORJ-0TO3 : IFB-MXC J>-22THENP0KE»«< J> , 32 : MX< J)-BX< J> : P-32 : S-S+10 

381 NEXTJ 

385 IFPO120THEN388 

386 FORJ-0TO3 ■ IFB«BX< JH22THENP0KEMBC J) , 32 : POKETOK J>-22, 32 : BJi< J>«0 : S»S+30 

387 NEXTJ 

388 IFP*101ORP«77ORP«78ORP««100THENP»32 : FL ■FL-1 

389 IFP>72RNBP<7SORP«»85THENS*S+50 : P»32 

390 IFP*81THEN3«8+100:P«32 

391 IFP*88THENS«S+500 : P0KE36879, 25 : FORJ«1TO108 ■ NEXT : P0KE36879, 8 : P-P+128 

392 FORJB1TO100 s NEXT « POKEB, P « POKEB+CO, C : B«0 : P0KE36877, : GOTO400 

395 IFB>8185THENB»0:GGTO400 

396 POKEB+CO.l: POKES, 46 

400 IFR$0" "TNEN460 

401 P0KE36878, 15:FORX1*255TO230STEP-1 :P0KE36S77,X1 :NEXT 
405 X1»INT<X)+1 

410 P0KECL+V*22+X1 * 7 J IFPEEK<SC+V#22+X1 >32THEN440 

41 1 P0KE36877, 135 : P0KE36874, 205 

415 P*PEEK<SC+V*22+X1 > : P0KESC+Vi22+Xl > 42 

416 IFP*101ORP-77ORP«78ORP*100THENFL«FL-1 '< P-32 

417 IFP>72RNDP<76ORP*85THEN8«S+50 '• P«32 

418 IFP»81THEN8aS+100!P«32 

428 FOP.T.0TO3 : IFFXC J)-8C+V*22+X1THENFX< J)«8 ' S-S+28 '• FI-FI-1 : P«32 

425 IFWK J)+22«SC+V#22+X1THENP0KEMX< J> , 32 « POKEMX< J>-22, 32 s BX< J>«0 J S«S+30 : P*32 

430 IFWK J)-22«8C+V§22+X1THENP0KEM«< J) , 32 - M5« J)«BX< J) : 8»8+10 : P«32 

435 NEXTJ 

436 P0KESC+V*22+X1,P:X1«X1-1 :G0T0445 

440 P0KE3C+V#22+X1 .fi4:Xl-Xl+l : IFXK22THEN410 
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«! Xl«22 

445 P0KE36874, : F0RJ-X+1T0X1 '• P0KE8C+V*22+,T . 32 '■ NEXT « P0KP36877' , 

455 F«7680+!HT<RNDa>#338> J IFPEEK<F>O32flNBPEEK<F)O32THENM0 

460 NEXTI : IFFL"0THEN500 

465 P«7688+INT(RND< 1 5*330) : IFPEEK<F)O32fiNBPEEI<<PK>62THPWsa0 

485 POKEP+CG . 4 '■ PQKPP • *2 : Fnt> T - 1 Tfr7 * : U FX T '■ T FP*CP +V*??+XTMPH 1 008 

*90 P0KEF..32 

495 POKEF+CO .. 4 : POKEP .. 42 i FOR J* 1 T0?5 : NEXT : T FF«.<sr>y *22+htwfn 1 000 

496 P0KEP.32 

500 IPF!>0THEN200 

505 FORI*0TO3 : F«< I W767+I*44 : IFI-1THENTCK I )*F5i< I )-l 

510 IFI«2THENFX<I)«FX<I>-47 

515 IFI«3THENFSJ<I>«FX<I)-44 

520 NEXTI :FIa4:OOTO280 

1 008 P0KE658 .. : P0KP36P? 1 * • i ?9 : Pnfe , P?6«77 . i a& : pnKF36870 • 1 5 

1010? P0KECL+V«22+X..2:P0KPSC+V*22+X..43 

1010 FORI*1TO750:NEXT 

1015 PRTMT'"nrnPP»<5 : P0krPflfiP74 , : POKPSf 076 , : P0KE36877, : P0KE36878, 

2000 D8T87902, 7972, 8090, 8161 

2885 BRTP7992, 7976, 8023, 7917 

2010 B0T88036,8107,8110,7913 



Alien Maurauders 

Stop the maurauding aliens before they overun your planet. You start out with three lives, how 
long can you last? 

Z moves you left 

C for right 
and M to fire your laser cannon. Good luck! 

1 HS*0 

5 SO0 : B- 1 : F»0 = IN*0 = 008UB 1 880 ' Q0T035 

8 FORI*1TO2000!NEXT: IN«IN+1 :GOSUB1005 

35 IFF-1THEN505 

36 POKE36878,10:POKE36874,132 

37 FORJ«0TOZ 
48 K*PEEK<197) 

45 IFK>32RNSK<35THENOOSUB300 
50 IFSO0THEN3QSUB400 = 0070100 
70 IFK«36THENS*G-22:GQSUB400 
100 GOSUB600 

209 NEXTJ '• P0KE36874, '• FORV*0TO3 • FORX*0TO3 : IFA8W* X)»BTHEN258 
205 Z*fl«<V,X)-7680:Zl"INT<Z/22) iZ«2-Zli22 

210 P0KEflKCV*X)'32--P0KEfl%C¥j)<>*l/32 

211 IFZ-Xi4ilORZ-X*4>6THENDX<V*K)-DX<ViX> '.flJ«V,X>»f»«V,X>T44 
215 flX(V,X>-flXCV,X)+D«CV^) 

217 PQKEffliCV* X)+CQ* V+2 • POKEflX<Y, X> , 255 

220 P0KEflX<V/X)+C0+l,V+2iP0KEflX<V,X>+i, 127 

221 IFRXCV,X»8142THEN500 



225 K"PEEK<197> '• IFK>32ANDK«5THENQOSUB300 

226 IFK«36ANDS«0THENS«G~22 
230 IFSQ0THENGQSUB400 
235 C«C+1 

250 NEXTX;V:IFC»0THEN8 

251 O0 '• FORX-0TO3 : C«C+AX<PQ, X> J NEXTX ! IFD*THENPCNPQ-i i IFPQC0THEN8 
25S 00T035 

300 P0KE0-L32iP0KE0tli32 

305 G"0+<K*33>-CK«34>:iFG<8143THENG<"8i43 

310 IFG>8162THENG«8162 

315 P0KE0-l+C0*3:P0KE0-li 112 • PQKEG+CQ, 3 : PQKEG* U3:PQKEG+CQ+1;3:P0KEG+1, 110 

320 RETURN 

400 POKES; 32 » S«S-22 < IFSC7680THENS-0 » P0KE36877* i RETURN 

401 P0KE36877 * 153 » FQKE36878i 6 
405 IFPEEK<8)032THEN415 

410 POKES+CG;5:P0KE8i93>GOTQ465 

415 P0KE36B77, 175 » PQKE36878; 15 

416 P-PEEKCS) : PQKES+CQ/ 2 • POKES; 42 J IFP-160QRP-95QRP-105THEN460 

420 P0KES-1;32:PQKES+1,32 

421 PQKE36878; 15 J PQKE36B77; 200 
425 IFP«127ORP»255THEN450 

430 FQRX1-0TO2 : IFS*SX<X1 >THENSC*SC+5 i SXCX1 > *0 

435 NEXTX1 

440 0OTO460 

450 FORV1«0TO3!FORX1«0TO3' lFflX<Vl*Xi>"8ORflX<VLXl>+i"8THENfW<Vi<Xl)«0 J8C-8C+10*( 

IN+i> 

455 NEXTX1;VI 

460 POKES. 32 : S«0 : PQKE36877; : PQKE36878; : PQKE36877; 

465 RETURN 

500 FQRI«1TO1000:NEXT 

501 PRINT'3" : P0KE36878; 42 « PRINT"IMl«THE INVADERS LAND**" • GOTQ509 

505 PQKE36S78; 15 '< P0KE36877; 150:PQKEG-l+CO;4:POKEe+CQ;4:PQKEG+l+CO;4 

506 PQKEG-1 , 223 : POKED; 223 '• POKEG+1 ; 223 : FQRI*1TO1000 : NEXT : PQKE36677; • PQKE36878; 

507 8*B+1 • IFB<4THENPQKE7680; B+48 : F«0 s PQKE36677; : 00T035 

508 FORI-ITO1000: NEXT: PRINT : PRINT" JWOU'RE derb" 

509 PRINT: PRINT: PRINT" VOU SCORED"SC:PQKE36877;0:PQKE36878;0 

510 IFSOHSTHENHS«SC 

511 PRINT"HIGH SCQRE*"HS 

513 PRINT"PRE8S fl KEV FOR ANOTHER GAME; SPACE TO END" 

514 GETA*:IFA*0""THENS14 

515 GETA* : IFA*-" "THEN515 
528 IFA$»" "THENEND 

525 SC«0 : B«l : F»0 : IN--1 • PRINT".T : G0T08 

600 IFSX<J»0THEN615 

605 SS«XNT<ttfflU)M>; IFAXCPO*SS>«0THEN635 

610 SJi<J>»A?«PQ;SS>+22 

615 P0KE6XC J>; 32 • SXC J)#SXC J>+22 ■ ZF8XC J)>8163THENSJi< J>0 : G0T0635 

620 IFPEEK(SXCJ))"112ORPEEK<SJiCJ))-U3ORPEEKC8X(J»"110THENF«l 

625 IFPEEKCSXt JUO32THENP0KESXC J> * 32 ; SXC J>«8 

630 P0KE8X(J)+C0;6:P0KESJi<J);93 

635 POKE36877;0i RETURN 

1000 PRINTS" : 00*30720 :DIMAX<3; 3) ;DX<3;3> J 0*8144 !PQKE36879; 8 

1001 SINSXC2) 
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1003 P0KEQ+C0-l*3;P0KE0+C0*3iP0KEQ+C0+1.3iPQKEQ~li 112:PGKEG, U3:P0KEG+1< 110 
1010 FQRI»0164TO0105:PQKEI*CQiS;PQKEL 160: NEXT :P0»3 
1015 FORVP0TQ3sFORX«0TQ3 

1020 flK<V,X>«7681tV*66+IN*44+XI4:DX<¥*X)«l 

1021 NEXTXjV 

1022 IFIIO0THEN1051 

102S FORV»8032TQ8091STEP22: FQRX-2TQ16STEP7 
1030 PQKEV+X+CQ* 7 • POKEV+X+1+CO * 7 ? PQKEV+X+2+CQ, 7 
1035 FQKEV+X, 160 • POKEV+X+1 > 160 < PQKEV+X+2; 160 
1040 NEXTXiV 
1045 FORX-6100TO8115STEP7 ; PQKEX+CQ, 7 > POKEX+2+CQ, 7 

1050 POKEX* 105 : PQKEX+2, 95 > NEXTX 

1051 FQRX«0TQ2:SJS<X>«0i NEXTX 

1052 PQKE38400, 1 1 PQKE7680, B+48 
1055 FORI-1TO2000! NEXT: RETURN 



Airplane 



Attempt to land your passengers safely on the runway at La Guardia Airport. 

When the distance reads on your instrument panel, you have reached the runway. You have 
to stop before you have passed 200 units of the runway (when the display reads -200). 

The numerical keys determine your rate of acceleration, means you are gliding. 'Space' puts 
on your air brakes and 'S' lowers your undercarriage. 'Return' will raise your undercarriage and 
switches off your air brakes. 

'W raises your plane's nose, 'X' lowers it. 

'R' and 'D' alter position compared to the horizon. This may also be altered by the wind. This is 
shown on the artificial horizon to the left of your instrument board. 

Good luck. It may take practice to land correctly. I can't! 

1 P0KE36879, 8 : PRINT"T : P0KE658, 255 

5 FORI=38469TO38906:POKEI,7 

10 NEXT 

15 F0RI=1T013 

20 P0KE7845+I*22+I/1 . 7, 188 : P0KE7845+ I #22-1/1 . 7> 123 

25 IFINTa/2>*2«ITHENP0KE7845+I*22> 181 

30 NEXTI 

35 PRINT"WF!IR SPEEMMNMHFLTTTi mFWi■■■■■■■IDISTflNCEMWlro<WI■■■■■l ,, ; 

40 PRINT"!!! -" 

45 F0RI»1T014:PRINT"IM »»•»•>■»••••! I" 
50 NEXT 

55 PRINT"»ilMIMii»IMWKII < .1HH I !«■■■■« I-*- • "■■■W" : 

68 PRINT" I NIIIIWI* '" 

6R PPTNT»?SW«OBPTTITUDE" 

70 PRINT"OJNDER3«WHIICflRRflIGE:" 

75 >INT<RND< 1 >*3800>+4200 ! H=3000+INKRND< 1 >*500-249> : TH*8 : 8B«8 

80 Vs200:P*0 : P»0 : U-0 

100 D*D-V/'36 : H*H-2+<fl*W5 : IF8-0THENH-H+V/200 

101 IFV>488THENV*408 
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105 v*V-. 5-U/20+<H<4)*2~AB*3 : IFRNBC 1 )>. 95THFNP*P+TNT<RN1K J. )*3-l ) 
110 TFWRTHFNVa0 
11* fiFTfl*:fl»fl-<fl$*"W")+<fl*-"X") 
128 IFR*»CHR$a3)THENU«0:RB*0 
121 IFfi*«" "THENRB«1 
125 IFROITHENR— 1 
130 IFRMTHENR«1 

135 V*V+THi IFVRL(R$:»0ORfl*<»"0"THENTH«VRL<fl*> 
140 P»P+<A*«"A">-<A**"D"> 
IFP<-1THENP«-1 



145 
150 
151 



IFPMTHENP-1 
IFA**"S"THENU*1 
155 PRINT"»miilftBil 
160 PRINT"»miin»l"J 



i"iINT<V>J"ll 
INT<H>;"II " 



165 PRINT"!! 



M"JINT<D>;"1I 



170 
175 
180 



195 
205 



228 
225 
235 
240 
241 
245 



260 

265 
270 
275 
280 
285 
290 



:IFA«1THENPRINT"\»; 



PRINT" WIBMIIMM 11 ; 

IFR«0THENPRINT H - M ; 

IFA—1THENPRINTV"; 
185 PRINT"IW*ffl" 
190 PRINT"»MMiWH ,, ;:lFI>0THENPRINT"UP " 

IFU*1THENPRINT"D0WN" 

print *ma»»»»i»i»»Mi[B)i nut m nm 

210 PRINT'TTllir; 

215 IFP»1THENPRINT"\MHN" 

IFP«0THENPRINT"JHI-" 

IFP*-1THENPRINT"M»/TW/" 

IFH<1THENH«0 

IFD>0ANDH=0THEN250 

IFV-0RNDH-0THEN250 

IFD>-200THEN100 
250 S*100 : FORI-1TO3080 : NEXT : PRINT"T 
235 IFD>0THENPRINT"YOU MISSED THE RUNWAY" 

IFD<-500THENPRINT"YOU OVER SHOT THE 

IFPO0THENPRINT"VOUR WING SCRAPED THE GROUND" : S«S-50 = GOTO300 

IFA<1THENPRINT"V0U BELLV FLOPPED" : S-S-50 : GOTO308 

IFPO0ANDH<4THENPRINT"VOUR WING TIP HIT THE GROUND" : S*S-75 = GOTO300 

IFU«0THENPRINT"VOUR UNDERCARRIAGE WASUP" : S-S-75 : GOTO300 

IFV>10THENPRINT"TOO FAST" 'S'S-25'- IFV>25THENS«S-25 

IFS«100THENPRINT"A PERFECT LANDING" 
300 PRINT"V0U SC0RED"S 
305 POKE650,0:END 
1000 F0RI«1T013 

1005 P0KE7645+I*22+I/1.7, 1 08 :PQKE7845+ 1*22-1,' 1.7, 123 
1010 IFINTU^2)#2*ITHENP0KE7845+I*22, 101 
1015 NEXT 



:S»S-80:GOTO300 

RUNWAV" : S«S-60 : GOTO300 



WHT\/ RED 



PUR \/grn\/ BLU\/ YEL 
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Marathon 



Sit back in your armchair at home and bet on the greatest athletes the world has ever seen. 
Place your money on one of the three athletes and watch the race. Then, if you are lucky, 
collect your winnings. 
The game continues until you are broke or you break the bank. 
Can you choose the winner from the odds given? 



2 P0KE3S879.-8 

3 MO* 180 

10 PRINT"3!***kATHLETE GAMBLER!****" 
28 PRINT" " 

30 PRINT"IWHAT IS VOUR NflMEC 

31 INPUTA* 

32 F0RI»1T03:0D<I)«INTCRND<1)*6)+1:NEXT 

35 PRINT'INOU HAVE £"M0 

36 PRINTA* 

40 PRINT ••PRINT"W?UNNER: ODDS-* 1 

50 PRWT"Wmtmmtm tmmmM" 

60 PRINT: PRINT" OSE3, COE irOD<l)"/l" 

70 PRINT: PRINT" 8<2>STEVE OVET H"0D<2)Vi" 

80 PRINT: PRINT" «3> ALLAN WELLS irOD<3>Vl«" 

90 PRINT :PRINT"BET?" 

100 INPUTB 

110 IFB>MOORB<0THEN100 

120 PRINT :PRINT"WHRT'S THE NUMBER OF THE ATHLETE?" 

130 INPUTR 

135 IFR<10RR>3THEN138 

200 PRINT"T : P0KE36879, 170 

210 F0RI»1TQ22 

220 FORJ*7680+I*22TO7689+I*22-INT<I/'2.2) :POKEJ+30720,0:POKEJ;S1 :NEXTJ, I 

225 F0RI-1T022 

230 FORJ«7701+(I*22)TO7692+<I*22)+INT<I/2.2)STEP-1 :POKEJ+30720.0:POKEJ,81 :NEXTJ. 

I 

235 PRINT"»SH #*THE RACE** 

240 PRINT"WBDnBTO(M»WWItH 

250 PR I NT" »■••••■ I I" 

300 = P0KE36874, 128 '• P0KE36877, 128 : FOR I-15T01 STEP- 1 '• P0KE36878, 1 : FQRJ-1T028 : NEXTJ, 1 

310 P0KE36877, > P0KE36874, • PQKE36878, 

330 RP(1)«8122:RP<2)*8130:RP<3)=8137 

340 F0RI»lTO3:P0KERPa>,32:POKERP<I)+l,32 

350 P0KERP< I >+2, 32 '• POKERPd >+23, 32 

360 P0KERP< I >+44, 32 : P0KERP< I >+46, 32 

370 P0KERPCI)-2i,32:NEXTI 

390 F0RI«1T03 

400 IF<RNDa><.24ANDRND(l>*5<OD<I>>ANDRND<lX.43THEN410 

402 IFI-lTHENRP<l)-RP<D+.5 

403 IFI«3THENRP<3)-RP<3)-.5 

404 RP<I)-RP(I)-22 
410 NEXTI 

13 




415 FQRI-1T03J IFRPCIX7897THEN1000 

450 NEXT 

540 F0RI-1T03 I POKERPC I H30720, I : POKERP< I > , 252 : POKERPC I >+30721 , : POKERP< I >+l , 176+ 

I 

550 POKERPC I H30722, 1 : POKERPC I >+2, 254 : POKERPC I )+30743, : POKERPC I >+23, 160 

560 POKERPC I >+30764, 1 : POKERPC I >+44, 254 : POKERPC I >+30766, 1 : POKERPC I >+46, 252 

570 POKERPC I >+30700, 1 '• POKERPC I >-21 > 81 : NEXTI 

580 : P0KE36878; 4 : PQKE36874, 147 ■ PQKE36877, 140 : F0RI-1T065 : NEXT : PQKE36874, : P0KE368 
77, Z 

581 POKE36878,0iGOTO340 

1000 FORZ«1TO1000 • NEXTZ : P0KE36879, 6 

1001 J-I 

1010 PRINT"!!*" 

1020 OOSUB1508 

1050 PRINT"WON. " 

1060 PRINT :PRINT"kVOU BET ON" 

1070 I-R 

1080 OOSUB1500 

1090 PRINT" «BO,VOU'VE" 

1100 IF>RTHENPRINT"kWQN!!! WELL BONE." 

1110 IFJORTHENPRINT"l*.QSTU BAD LUCK." 

1111 IFJORTHENMO-MO-B 

1112 IFJ*RTHENMQ"MQ+CODCR>*B) 

1113 IFMOC1THEN2000 

1114 IFMO>20000THEN3000 

1120 PRINT SPRINT: PRINT" *RESS RETURN" 

1130 INPUTflt 

1140 00T032 

1500 IFI-lTHENPRINT"flSEBRSTIflN COE" 

1510 IFI»2THENPRINT"H6TEVE OVET" 

1520 IFI««3THENPRINT"fcflLLflN WELLS" 

1550 RETURN 
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2800 PRINT" AVOU'VE RAN OUT OF MONEV" 

2040 PRINT :PRINT"IIIDO YOU OR YOUR FRIEND WANT fl GAME?" 

2050 INPUTA* 

2060 IFA**"YES"THENRUN 

2070 PRINT"«BYE THEN." 

2080 END 

3000 PRINT-WYOU'VE BUST THE BANKM" 

3010 OOTO2040 



Wizard 



Can you follow the series of electronic blips given by VIC? 

Press the keys in right order after the computer has given you the tune. The tune gets longer as 
you go on. 
Be quick, otherwise the computer will give you a raspberry. 

1 REIWCOMPUTER WIZARD* 

2 PRINT"T:P0KE36879;158 

3 00=30720 : U>0 

9 PRINT"** ■" 

is pkintma wtt *& i" 

20 print'tia m — -cdhputer- — ■* - 

38 PRINTTIA ^i A-NiZARD-A bF :: 

40 PRINT ME) E A " 

45 PRINT'TM I a " 

50 PRINT'TM Wn TO « 

55 PRINT'TM ■ A " 

60 PRINT'TM m — I *-%»—-« rsB~i r-vl AA " 

eapsiNT'Tiii in i2i i3i i. •• 

70 PRINT'TM ■ I Ml I I AM I I Ml I MI" 

75 PRINT'TM H — I w «— A v-»»-t wi^gj r 

80 PRINT".!* M-r «/-%■— i^i-i^i— « S » 

85 PRINT'TM I 14 1 151 161 A •« 

90 PRINT'TM ■ i AM I I Ml I I AH I I 

95 PRINT".TA 1 A^l — a^A—A^A — IH ", 

100 PRINT" A im AST " 

110 PRINT".™ ^M AST " 

120 PRINT'TM ^M — - HIST " 

130 PRINT".!! Wi %W 

140 print'tm ym «sr 

150 PRINT'TM 

170 F0RI-8142T08185 ; PQKEI+GG, : POKEI > 160 : NEXT 

180 FQRJ*1TQ6 : READfl< J) = NEXT J 

185 DATA223/227/230 

190 DATA231,234,236 

195 FOR>1T09:NO<J)«INT<RND<1)«6H1:NEXT:NU«1 
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208 PQKE36078, 8 ■ FQRI-1T0NU 

210 PQKE36875,fl<NCKI)> 

211 2*2 

212 ONNOCDQOSUBIBBB, 1188, 1200, 1300, 1400, 1500 
215 FQRJ-iTOSSB'NEXTJ 

220 P0KE36B75, '• Z"l '- ONNO< I )OOSUB1000, 1 100, 1200, 1300, 1400, 1508 • FQRJ«1 T0125 : NEXTJ, 

I 

225 PQKE198,8 

238 FORI-ITONU 

235 F0RJ«1TQ178 

248 QETflttl ) : IFflf < I ><>" "THEN3B8 

258 NEXT J 

268 P0KE36875, 128 • FQRJ-IT0128B '• NEXT \ PQKE36875, 8 

278 LOfLO+1 « IFLQ-5THEN28BB 

288 QQTQ195 

388 IFyRL(flf(I»ONO(I)THEN280 

305 P0KE36875ifl<Vfli.(flf<I>)) 

310 NEXTI 

328 FORl¥lTQ560!NEXT:PQKE36875,e 

358 NU«NU+l 

360 F0RI*1T0858:NEXT 

365 IFNU-10THEN195 

378 Q0T028B 

1888 P0KE7883+C0,Z:P0KE7883,81 

1818 RETURN 

1188 P0KE7889+C0,ZiP0KE7889,81 

1110 RETURN 

1288 P0KI7894+CQ,Z:PQKE7894 J 81 

1218 RETURN 

1388 P0KE797l+CQ,Z:P0KE7971,81 

1318 RETURN 

1488 P0KE7977+C0, Z • P0KE7977, 01 

1410 RETURN 

1588 P0KE7982+C0,Z:P0KE7982,81 

1518 RETURN 

2888 PQKE36879,8:PRINT ,, a*'0U WIRE NRONQ,FXVE TIMES" 

2010 PRINT"M ' 

2020 PRINT" MO VOU WANT ANOTHER 00 (V/N>?" 
2030 OETfl*:IFfl*«""THEN2030 
2040 IFflf«"V"THENRUN 
2050 PRINT"BVE" 
22S0 END 
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Tail Gunner 



Enemy space-craft close in on you, growing larger as they approach. Move your sights over 
the top of them and fire before they escape past you. 
W moves your sights up, 
A moves them left, 
D moves them right, 
X moves your sights down, and 
S fires your energy cannon. 
How many can you destroy before 6 get through your defensive net. 

5 PQKEfi»*235 

13 DXMfl<2)<8<2> 'FORI«0T02iR<I>«7680+INT<RND<i>*506> 

20 8(I)«i:NEXT 

23 SC-7688 '• CL«38480 ; CO"30720 ' X« 1 8 '■ Y«10 

38 8"0'.Pfl«0 

58 FQRI-0TQ2 

33 GETfl*!IFfl$«""THEN100 

60 P0KESC+Y#22+X, 32 » XpX+<RI « n R" >-<fl$»"D" > 

65 Y«Y+<fl$« H W">-<fl$» ,, X ,, > • IFV<8THENV«0 

78 IFV>22THENV»22 

75 IFX<0THENX«0 

88 IFX>21THENX«21 

85 P0KECLtVH«2+X, 1 : P0KESC+V*22+X, 91 

100 IFR<I)»0THEN188 

105 fl«fl< I ) : POKER, 32 : POKEfl-1 , 32 : POKEfl+1 , 32 : POKEfl-21 , 32 : POKER-23, 32 

186 P0KEfl+21,32:P0KEfl+23,32 

187 IFRNDa».9THENSU>-S<I>+l 

110 D»INT<RNDCl)#3+21)iIFRND<l».5THEND*-D 

115 fl«fl+D:IFR<7703THENR«fl+450 

128 IFR>8162THENR«R-450 

125 fl< I >«fl : PQKEfl+CQ, 4 : POKEfl+CO-1 , 4 : PQKEfl+CO+1 , 4 : PQKEfl+CO-21 , 4 : PQKEfl+CO-23, 4 

130 PQKER+C0+23,4:PQKEfl+CQ+21,4 

135 QNSa>GQTQ140,145,150,160,170 

140 POKER, 46 =GQTO200 

145 POKER, 87 =0070200 

150 POKER. 87 : POKER- 1 , 107 : POKEfl+i , 115 = 8OTO200 

160 POKER, 87 : PQKER-1 , 107 : POKEfl+1 * 1 15 : POKER-23, 85 : POKER-21 » 73 

165 POKER+21/74:POKER+23,75:OOTO280 

170 Ra>»7680+INT(RNS<l)*506):Pfl-Pft+l:S<I>-l 

175 IFPfl>5THEN1000 

176 GOTO208 

180 IFRNDC1K.9THEN200 

185 R( I >*INT<RND< 1 >*506>+7680 : S< I >*1 

208 IFR*O"S"THEN300 

201 P0KE36878, 18 « FORR-255TO200STEP-1 : PQKE36877, fl : NEXT : FORR«1TO100 : NEXT : P0KE36877 
,130 

202 P0KE36878, 15 

205 fl*CL+Y*22+X : POKER, 7 : POKEfl-1 , 7 : POKEfl+21 , 7 : POKER+22, 7 
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210 POKEfl-22, 7 : POKEfl-23, 7 = POKEFl-21 , 7 : POKEfi+23, 7 

215 R=SC+V*22+X:F0RJ=1T05 

228 ONJGOTO225,230,235,240,250 

225 POKER, 46 '• P0KE36877, 145 : QOTO270 

230 POKER, 81 = P0KE36877, 175 '• GOTO270 

235 POKER, 87 = P0KE36877, 200 : GOTO270 

248 POKER, 73 : POKER- 1 , 85 : POKER+21 , 74 : POKER+22, 75 

245 P0KE36879, 25 : P0KE36877, 225 = G0T0278 

250 POKER, 32 : POKEfl-23, 85 : POKER-22, 64 : POKER-21 , 73 = P0KE36877, 250 

255 P0KER-1,93:P0KER+1,93 

260 POKER+21 , 74 : POKER+22, 64 : P0KER+23, 75 

265 P0KE36879,42 

270 FORK=1TO25+J*10 ■ NEXTK, J : P0KE36877, 

275 P0KE36679, 8 « P0KECL+Y#22+X, 1 : P0KESC+V*22+X, 91 

280 POKEfl-23, 32 : POKER-22, 32 : POKER-21 , 32 : POKER-1 , 32 : POKEfl+l , 32 

285 POKER+21 , 32 : POKER+22, 32 : POKER+23, 32 

290 FORJ*0TO2 : IFROR< J)RNDR-lCfl< J)ANDfl+210FKJ>flNDfl+220fi< JJTHEN295 

291 8-8+3(J>*10 

292 POKER< J>-1 , 32 = POKERC J)-21 , 32 : POKEfl< J)-22, 32 = POKEfl< J>-23, 32 

293 P0KEfl<J)+l,32:P0KER<J)+21,32'-P0KEfl<J>+22,32:P0KEfl<J)+23,32 

294 fl<J)=0 

295 NEXT 

380 NEXTI:GOTO50 
1000 POKE650,8 

1005 FORI*1TO1000:NEXT:PRINT"IBW)«^^ DEAD" 

1010 PRINT"S*IMIISCQRE"S 
1015 F0RI*36874T036878 = POKE 1 , 8 s NEXT 
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Astro Wars 



In this arcade action type program, you must stop the enemy space craft from reaching the 
bottom of the screen. If you manage to stop the first wave, it is followed by a second and then a 
third wave. How many aliens can you take with you before your inevitable defeat? 

Z moves you left, 

C moves you right, and 

M fires your laser. 

10 P0KE36879, 8= PRINT'S"; =00=30720 
15 S*0:P«8174:W=0:l_=l 
20 DIMfl<3> 

24 PRINTTflB< 10) ;:F0RI=1T04-L SPRINT"** "; 'NEXT 

25 FORI»0TO3:fl<n«7702+INT<RND<n*22) : IFI<3THENS<I>«0 
30 NEXTI 

35 01=107: 02=81 = 03*1 15 =N*4 

36 W*W+l:IFW>3THENW«l 

40 IFW»2THENC1*95 =02=98:03=105 

45 IFW=3THENC1=32: 02=68 =03=32 

50 FORI=0TO2STEP2 = K=PEEK< 197) : IFK=64THEN100 

55 P0KEP-1 , 32 = PQKEP+1 , 32 • P=P+<K=33>-<K«34> 

60 IFP<S165THENP=8165 

65 IFP>8184THENP=6184 

70 P0KEP-1+CQ, 3 = P0KEP+C0, 3 = P0KEP+1+CQ, 3 

75 P0KEP-1 A 12 = PQKEP, 113: P0KEP+1 , 1 10 

100 F0RJ*ITQI+1 = IFfl<J)=0THEN150 

105 P0KEfi<J>-l,32=P0KER<J>,32=P0KEfl<J>+l,32 

118 fl<J)»R<J>+INT<RND<l)#3+2D 

115 IFA<J»3163THEN1000 

120 P0KEfl<J)-l+C0.5:P0KEfl<J)+C0.1:P0KEfl<J)+l+C0.5 

125 IFW=2THENPQKEfl<J)-l+CQ,7:P0KEfla>+C0,2=P0KEfl<J)+l+C0,7 

130 IFW=3THENP0KEfi<J>+CQ,2 

135 PQKER<J)-l,Cl:P0KEfl<J),C2=P0KEfi<J>+i,C3 

150 NEXT J 

155 IFKO36THEN200 

156 P0KE36878, 12 = FQRX=255TQ200STEP-1 : P0KE36877, X i NEXT 

160 FQRX=P-22TQ7702STEP-22 : PQKEX+CQ, 7 : IFPEEK<X)=32THEN190 

161 P0KE36878, 15 : PQKE36377, 130 

165 P0KE36879/ 40 : P0KEX-23+C0, 1 : PQKEX-21+CQ, 1 = P0KEX+23+C0, 1 : P0KEX+21+C0, 1 

166 POKE36877,200 

170 POKEX-23/ 127 : P0KEX-21 , 255 = POKEX, 81 : PQKEX+23, 127 = POKEX+21 , 255 

175 FORV=0TO3 : IFfi<V)=XTHENP0KEX~l , 32 = P0KEX+1 , 32 = S=S+10*W = rKV>=0 = N=N-1 

180 IFfl<V)OX+lflNDfl<V)OX-lTHEN185 

181 PQKEX-1 , 32 = POKEX-2, 32 = P0KEX+1 , 32 = PQKEX+2, 32 = fl<Y>=0 = S=S+5*W : N=N-1 

185 NEXTV = POKEX-23, 32 = PQKEX-21 * 32 = POKEX+23, 32 : P0KEX+2i , 32 = PQKE36879, 8 

186 P0KE3S877,236 

198 PGKEX, 93 = NEXTX : FORX=P-22TQ7702STEP-22 = POKEX > 32 : NEXT 

195 POKE36877.0 

280 NEXTI : PRINT"SMSCORE ,i S : IFN>0THEN50 

205 00T025 

1800 FQRI*1TO1000:NEXT:L*L+1:IFL<4THENW=0:PRINT"T; =0OTO24 
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Swarm 



Flash through the skies and zap the alien space craft before they get you. As they collide with 
you, your ship slows down until it eventually stops and the game ends. 

As the aliens die, hear the whine of reinforcements warping into the battle zone to take their 
place. 

W moves you space ship up, 

A reverses it, 

D makes it go to the right, and 

X moves it down, 

S will fire your laser at the enemy. 

5 POKE650,255 

10 PRINTT :POKE36879.8:FORI-9164TO8185:POKEI+30720,5:POKEI* 104:NEXT 

15 X«5 '• V»10 : D»l = S*0 : SO7680 : CL-38400 : R*l 

28 DIMX<5),V(5>:FORI»0TO5:X<I>-99:NEXT 

50 FORI»0TO5 • QETfl* • IFfl*»" "RNDD-0THENPQKE36877, :QOTOi00 

51 PQKE36878,2:PQKE36877,240 

55 P0KE8C+V*22+X/32:X»X+D/'R 

60 D»D+<flt-"fl">-<fl*-"D"> '• IFDMTHEND-1 

€5 IFD<-1THEND«-1 

70 V«>V+<fl$»"W">-<fl$*"X"> 

75 IFX<0THENX«21 

80 IFV<0THENV-0 

85 IFX>21THENX*0 

90 IFV>21THENV-21 

95 PQKECL+W22+X, 3 : f>107 J IPD—iTHENOl 15 

96 IFPEEKCSC+Y#22+X)-32THEN99 

97 R-R+l - P0KE36876, 258 > FORL-1TO200 » NEXT » P0KE36876/ » 

98 POKECL+V#22+X;2:iFR>3THEN1000 

99 PQKESC+Y#22+X,C 

100 IFfl*O"S"THEN200 

101 PQKE36S78, 9 ' FORD1-255TO230STEP-1 : P0KE36877, Dl • NEXT 
105 D1*D:IFD1«0THEND1»1 

110 Xl-INKX) iidM 

115 X1-X1+D1 iP0KECL+V#22+Xl/7:P«PEEK<8C+V#22+Xl> : IFP-32THEN150 
120 FOR>0TO5: IFV-V<J)flNDXi-X<J)THENX<J>*99: 8-8+10 

125 NEXTJ 

130 PQKE36878,15:PQKE36877,130 

145 G0TQ155 

158 PQKESC+Y*22+X1 , 64 : IFXK21RNDX1>0THEN1 15 

155 F0RX2-INT<X)+D1T0X1STEPD1 iP0KESC+VHl22+X2.32:NEXT 

168 POKE36877i0 

200 IFX(Z)-99THEN250 

205 P0KESC+V< I >#22+X< I ) , 32 ' IFRNDC 1 X. 4THEN225 

218 V<I)«V<I>+<V<I»V>-<V<IXV> 

215 xa>»xa>+<xa»x>-<xaxx> 

228 G0T0246 

225 X(I)«X<D+INT<RND<l>*3-i>:V<I>*V<I)+INT<RND<l>*3-i> 
230 IFX<IX0THENXCI>*21 
235 IFV<IX0THENV<I>-0 

20 



240 IFXC I »21THENX< I )-0 

245 IFV<I»21THENV<I>-21 

246 IFV< I )-VflNDX< I >->INT<X+. 5)THENR-R+1 : P0KECL+V#22+X, 2 s IFR>3THEN1000 

247 POKECL+V< I >*22+X< I > , 4 : POKESC+VC I >*22+X< I > , 88 

250 IFX<I>O990RRNIKlX.9THEN255 

251 X<I)"INT<RND<l)*22):V<I>-INT<RND<n*21) 

252 PQKE36878, 15 '• FQRL*250TQ150STEP-1 : P0KE36876, L • NEXT - P0KE36876, 
255 NEXTI!QQTQ50 

1000 POKE650, s P0KE36878, • P0KE36877, 

1005 FORI-1TO1000 : NEXT ■ PRINT a MnnHWIM6CORE"S 



3-D Maze 



Work your way throughout the maze in the quickest time possible. You must try and reach cell 
number 25. 

The corridor is depicted in 3-D graphics. 

Cursor-right rotates you right, cursor-left rotates you left. 

'Return' moves you forwards, if there is a gap in the wall in front of you. Under a minute is a 
good time. 

18 P0KE36879,8 

15' DIMM$<50,4> :F0RI=1T058 

28 IFI>lTHENM$a,4>«M*a-l,2>:iFD5THENf1*<L3>«l1$< 1-5.1) 

25 M*a,l)«»STR$<INT<RND<l)*2>):M*a/2)=STR$<IHT<RND<l)*2>) 

30 IFI*lTHENf1*<L3)="0":M$<L4>»"0" 

48 NEXTI:TI*s"000000 ; ' 

45 P«INKRND<1>*50+1> = IFP=25TH£N45 

50 F=VfiL<M$<P, i > > : R*VflL(M*<P, 2) > : B=VALa<i*<P, 3) > ■ L*VRUM*<P, 4> ) 

60 D=l 

75 IFPs25THEN5000 

80 GOSUB1008 

85 GETfl*:iFfi$»""THEN85 

98 IFfl*O"H"flNDfl*O"ll"THEN150 

95 IFW-'WTHEN^ 

100 EX*F:F*L:L=B:E=R:R*EX 

105 D-D-l : IFD<1THEHD=4 

110 GOSUB1000:GOTO150 

120 EX=F:FaR:R«B:B-L^=EK 

125 D=D+i : IFD>4TH£NB=1 

133 GG3UB1@00 

15S IFfi#OCHR$<13)THEN85 

160 IFF=0THEN85 

165 P*P+<<B=3>-<D=l>>*5+<Ds4)-<D«2) 

170 IFP>50THENP=P-50 

175 IFP<lTHENP«P+50 

188 GOTO50 

1000 PRINT' , :3:^Jfl\)lr^)^0!^J!^^ 

1005 PRiHi"nmmmmmmM mmmm ooiiiiiii i" 

1010 PRINT"imimi Mllllll 91111111 I" 
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1815 
1828 
1825 
1838 
1835 
1848 
1845 
1858 
1355 
1868 
1865 
1878 
5888 
5885 
5818 
5815 
5828 
5325 



pr i nt " w»ii»ii^o«ii^ii^aiij/MiiB/^ii,^i^^ii/'rrnTnT] i ' 
print :! jiiiiiiliiilliil^•^^)SKSi''^»■^>i^•os^•0(^' , ; 

IFFHTTHENPRINr'WMW^^ i&D&HIIIIIII 1" 

IFl=8THEN1859 

PRiw'SMKDa m mi m*i mm mm mmi i 

PR I NT "HI EBSSii DSlii DAIII Mill Will Will WHS 
PR INT "HI mil! fflli " 

IFR«8THEN1878 

PRiNT n na)0iM»wiMiiim»M raw ram mm mmi mm 
prints win mm mm win ram ram raiii 

PRINT" Wii Wli" 

PRINT"»»CEl.L ll P : RETURN 

F0RI=1T01888 : NEXT : PRINT" HMMmraiHMliELL DONE" 

PRINT"»M VOU GOT OUT ALIVE" 

PRINT'WTIME TfiKEN"; 

T=VfiL i T I $ > : H* I NT i 1/ 1 0638 ) : M= I NT < < T-H* 1 8388 ) / 1 88 ) : S=T-H* 1 3888-M* 1 88 

PRINTH"HOURS" 

PRINTM"MINUTES,fiND ,! : PRINTS' 1 SECONDS" 



raiif" > 
ranr. 
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Brands Hatch 



Test your skill on the road, trying to avoid thirty cars. Be careful not to crash into them or into 
the side barriers. 
See if you can finish the race without damage to you or your car. 
You are given a rating depending on your performance. 
Race instructions are given in the program. 

1 C=12:H*0:PRINT"r3DO VOU WANT" : PR I NT "INSTRUCT IONS": PR INT" < 8MES OR «»>?": INPUT 
fl*: 

2 IFfl*«"V"THENOOSUB2000 

3 GOSUB2090 : P0KE36879, 92 : POKE650 . 128 : P0KE36878, 15 : P0KE36874, 128 : GOTO? 

4 PRINT"T:F0RIalT023 

5 PRINT" flflll II" 

6 NEXTi: RETURN 

7 G0SUB4 

10 FORL«1TO30 

25 fl«7+INT<RNB<n#7> 

70 PRim tt mimmmmBim m im n •PRWJTPB^y'Mm ■■ " 

80 PRINTTRB<R> "■'**«■" 
90 PRINTTRBCRV'i HIM ■«" 
100 PRINTTRB(R)" flfei" 

110 F0RZ-1T08+DI 

111 OETfl* : PRINT" WW" :PRINTTRB<C>" " 
120 PRINTTRB<C)" " 

1.30 PRINTTRBCO" " 
140 PRINTT RB<C»1 ) " " 

150 pr i nt " MiDioa)nMnaiDa H 

170 C-C+<fl*»"Z")-<fl*-"M ,, > 
180 IFCC7ORO14THENGOSUB1000 
191 PRINT"WM":PRINTTRB<C>" " 

195 PRINT"«BDflMB«Mroi)B^^ Mill II" 

196 PRINT"W'L;:PRINT"II"H 

200 PRINT"WW9":PRINTTRB<C)"M , S ■' " 

210 PRINTTRBCCVOTM"" 

220 PRINTTRBW'iKW HH" 

230 PRINTTRB<C+l)"iBUI" 

240 GOSUB308 

250 NEXTZ.L 

260 PRINT")IDIWWDIWB" 

262 IFH-0THENPRINT"***GRERT DRIVING I ***" : IFDI>2THENPRINT" FOR THRT LEVEL" 

264 IFH«1THENPRINT"***WELL B0NE#*#" 

265 IFH>1RNDW<5THENPRINT"#**N0T BRD#*#" 

266 IFH>4RNDH<1 1THENPRINT"#**GRRNNV**#" 
270 IFH>10THENPRINT"***Hfl,HR,Hfl! I«M" 
275 print; 

280 POKE650.0 

298 GOTO500 

300 PE«0:PE«PEEK<7812+C)+PEEK<7835+C)+PEEK(7814+C) 

330 IFPE«96THENRETURN 

400 P0KE36879, 136 : P0KE36877, 240 • FORI-251TO180 : P0KE36876, I 
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401 FORI 1-1TO200 = HEXTI 1 , 1 

402 PRINT"WW":PRINTTAB<C>" ":PRINTTAB<C-i >"*■■* t" 

403 PRINTTAB<C-1>"SH WO «l" 
407 PRINTTABCC-lVSB'Bi JL " 

410 POKE3S876,0:POKE36877, 140:FORI»15TO0STEP-1 :P0KE36878, I : FORI 1-1TO100: NEXTI 1, 1 

430 P0KE36877,8sP0KE36878, 15:P0KE36874, 1 28 :P0KE36879 ,92 : 008UB4 : H«H+ 1 : RETURN 

500 POKE36874,0;FORI«1TO800: NEXTI : PRINT" WWW" : PR INT"IWWIMMMFINI8HMI n 

910 F0RI-1T08 

520 REABACI) 

530 NEXTI 

550 DATA223* 227*230 

560 DATA231, 234,236 

570 DATA238,239 

588 FORI"0TO88TEP2 J P0KE36875, R< I > : OO8UB700 : NEXTI 

598 F0RI-1T08STEP2 s P0KE36875, fl< I > : OO8UB700 ■ NEXTI 

600 F0RI-8T01STEP-1 : P0KE36875, A<I ) » GO8UB700 : NEXTI : PRINTS" : P0KE36878, • P0KE3687 

5 

620 POKE650, : P0KE36874, • P0KE36879, 27 : END 

700 FORI 1-1TO350: NEXT: RETURN 

1000 P0KE36877, 213 1 P0KE36875, 208 : FORJ-1TO750 • NEXTJ : P0KE36675, = P0KE36877, : H*H+1 

1018 IFC<7THENC-7 

1020 IF014THENC-14 

1030 G0SUB4: RETURN 

2800 PRINT" WOU MUST OVERTAKE 30 CARS, THE LOWER THE SKILL LEVEL THE FRSTERVO 

U GO." 

2015 PRINT" " 

2035 INPUT"PRESS RETURN" JRf: PR I NT" 3" 

2040 PRINT" »:PRINT"Z-MOVES VOUR CAR LEFT,M-MOVES IT RIGHT. 

ii 

2045 PR I NT " ————————————— " 

2050 PRINT"THE FIGURE RT THE TOP LEFT IS THE NUMBER OF CARS VOU'VE PASSED, " 

2060 PRINT"THE ONE TO THE RIGHT IS THE NUMBER OF CRASHES. " 

2070 PRINT"VOU CRASH IF VOUR FRONT "; 

2075 PRINT"WHEEL HITS A CAR" 

2080 PRINT"OR VOU HIT THE SIDE OF THE ROAD. "= INPUT" PRE8S RETURN ", A*: PR I NT " H" : RET 

URN 

2090 PRINT"DIFICULTV? O-HARD TO 9-EASV) 

2100 INPUTDI:PRINT"T 

2110 IFDK1ORDI>9THEN2108 

2120 RETURN 



WHT\/ RED 



pur\/grn\/ BLU\/ YEL 
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Lightning Bolt 




A bolt of energy descends from the heavens. You must make a wall with your cursor and try 
and make the bolt go through it. If it hits your wall you gain points. 

Be careful, if you cross your path or that of the bolt, you lose one of your 5 lives. Also, the bolt 
may fire a laser at you, knocking a hole through your wall and perhaps hitting you, losing one of 
your lives. 

W moves your cursor up, 

A moves it left, 

D moves it right and X moves it down 

5 HI«0 

10 S»0:CO»30720:SP»3:U"5:F»0 

15 PQKE36879,8:P"7910 

20 PRINT":]" :F0RI«8164T08185:P0KEI+C0iS:P0KEL 160 = NEXT 

25 L-7680+INT(RND<l)#22) 

30 >XNT<RWK1)«3-1) > IFD»0QRRND(l)>.5THEND=D+22 

35 093:iFS»21THEN078 

40 IFD-23THENC-77 

45 IFD<20TNENO64 

50 P0KEL+C£L3:PQKEL,C 

55 L»L+D: IFL>8163THENS»S-10:QQTO20 

56 IFU7680THENL4.+22 

57 IFPEEKCL)*160THENS*S+50:GOTO30 

60 POKEL+C0<7:POKEL,81 

61 FQRI-1T0SP 
65 K«PEEK(197) :iFKO17flNDKO18flNDKO9flNDKO26THEN100 

70 POKEP+CO>4:POKEP*160:P«P+<K«17)-<K»18)+<<K«9)-<K*26))#22 

71 8*8+1 

75 IFP>8164THENP«P-22:S*S~1 
80 IFP<7680THENP«P+22:S«8+1 

85 IFPEEK(P)«32THEN90 

86 LI«LZ-1 '• POKEP+CO, 7 • PQKEP, 42 

87 PQKE36876, 240 J PQKE36878, 10 : FORL1-1TO180 : NEXT : PQKE36876, 

88 GOTO180 

98 POKEP+CO. 2 SPOKEP, 91 
100 NEXT 

185 IFS>1000THENSP»2 
110 IFS>5000THENSP»1 

115 IFRN1X1X.95THEN200 

1 16 P0KE36878, 12 : FORE-255TO2108TEP-1 • P0KE36877; E : NEXT 
120 B-L : E»INTCRND< 1 >*3-l ) : JFP<BTHENE»E-22 
125 IFP>BTHENE«E+22 
138 IFABS<EX20THENE-22 
135 B«B+E:B1»B:C1«93: IFflBS<E)«23THENCl-77 
140 IFflBS<E)«21THENCl«78 
145 IFflB8<E)«lTHENCl«64 

160 IFB>8163THEN180 

161 IFB<7680THEN180 

162 PQKEB+CQ,7:P0KEB,81 
165 IFBOPTHEN170 
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166 LI-LI-1 :P0KE36876, 175:P0KE36878, 15:FQRL1*1TO100:NEXT:POKE36876,0:GOTO180 

178 P0KEB+C0/5=P0KEB,C1 

175 B*B+E:OOTO160 

180 B*B-E : F0RI-B1T0BSTEPE : POKEI > 32 : NEXT : P0KE36877, 

200 IFSC-10THEN1800 

205 IFS>1000flNDF*0THENLI»LI+l :F*1 

210 IF8>5000FINDF-1THENLIbLI+1 :F»2 

215 IFS>10000flNDF«2THENLI«LI+l :F«3 

228 IFLK1THEN1000 

225 IFRND<1».7THEN30 

230 GOTO50 

1008 FORI«1TO2800 ■ NEXT ■' PRINT"3(WW»IMI«CORE"8 

1005 IFS>HITHENHI*S: PRINT ;PRINT"lfrOU OOT THE HIGH SCORE": GOTO 1020 

1010 PRINT: PRINT :PRINT"»IGH SCORE"HI 

1020 PRINT :PRINT"nFNOTHER GAME?" 

1025 GETfl*:lFfl$«"V"THEN10 

1030 IFfl*C"N"THEN1025 

1035 PRINT: PRINT" *BYE" 

1050 POKE198.0 



Space Birds 



Mysterious eggs are dropping from the sky. Large birds hatch out as they hit the ground . What 
are these strange creatures? 

There is a valuable mineral in the clouds of this planet which your company is attempting to 
obtain. Unfortunately, the birds of this planet thrive on the stuff and it is your job to prevent them 
eating it all by wiping them out. 

As the birds reach the clouds, they eat some of the mineral and lay another egg . Thus you must 
shoot the birds before they reach the clouds. 

Z moves your gun left, 

C moves it right, and 

M fires. Be careful. If you fire and miss you may burn away some of the mineral. You get half 
points if you shoot an egg down. Although sometimes they just hatch out. The game ends if you 
crash, if most of the cloud is eaten or if you kill off all the birds. 

5 INPUT'TEKILL LEVEL" ;LE:LE=LE-1 

6 IFLE<0ORLE>3THEN3 

10 P0KE36879,8:PRINT"T :CO«30720:G-8143 
15 DIMB<5)/D<5>:CL«22:SC»0 

18 FORI-7680TO7701 = POKE I +CQ, 3= POKE I, 90 : NEXT 

19 FORWfl«0TOLE 

20 FORI*0TOWfl:B<I>-7702+INT(RND<l>«22) =IKI>"2l+INT<RND(l>«3) 
25 NEXT I 

35 F0RI=8164T08185 '• PQKEI+CQ, 5 : POKEI , 168 : NEXT 
48 PQKEG-1* 112: POKED, 1 13 : POKEG+liU0 

44 WWffl+l 

45 F0RJ-1T02 
50 FORI*0TOWfl 
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55 IFB<I>-0THEN150 

60 POKEB< I > , 32 •• IFDC I »0THEN70 

65 P0KEBCI)-l,32:P0KEB(I)+l*32:P0KEB<I>-22#32:P0KEB<I>-43*32:P0KEB<I>-43;32 

66 POKEBC I >-23, 32 = POKEBC I >-21, 32 = POKEBC D-44, 32 

67 IFDCI)>0RNDPEEKCBCDX>32THENBCI>*INTCRNDCl)*3-23> 

70 B(I)«B(I)+DCI>:lFB<I»8ifi3THEND<I>«INT(RND<i>Hl3-23):B<I>"B<n+Da) 

71 IFDCI»0ORBCI»*7746THEN76 

72 IFPEEKCBCD~44>*32THEN74 

73 P0KEB(I)-44,32:CLsCL-l 

74 D<I)slNT<RND<l)#3+21) :B<I>INT<RND<i)*22+7702) 

75 IFDCIX0THEN100 

76 IFDCIX0THEN100 

85 P0KECQ+BCI),7:PQKEBCi;>,81 

90 G0T0158 

100 POKEBC D+CO, 7 : POKEBC I >-l+CO, 7 : POKEBC I >+l+CO, 7 : POKEB< I >-22+C0, 6 

105 POKEBC I >~23+CQ, 5 : POKEBC 1 >~21+CQ, 5 : POKEBC I )-44+C0, 2 

106 POKEBC I >-43+CQ, 5 : POKEBC I) -45+C0, 5 

110 POKEBC I >, 1 13 : POKEBC I >-l, 85: POKEBC I >+l, 73: POKEBC I >-22, 102 

115 P0KEBCI>-44,88 

120 0NJGQT0125, 135 

125 POKEBC I )-23, 105= POKEBC I )-2i/ 95 

130 GOTO150 

135 POKEBC I >-45, 95 • POKEBC I >-43, 105 

150 IFCK5THEN1000 

160 K*PEEKC197> : IFK<33QRK>34THEN200 

165 POKEG-i , 32 : PQKEG, 32 : POKEG+1 > 32 : G*G+CK*33)-CK*34> 

170 IFPEEKCG-1)O32ORPEEKCG)O32ORPEEKCG+1)O32THEN1010 

171 IFG<8143THENG»8143 

172 IFG>8161THENG*8161 

175 POKEG-1+CO, 1 : POKEG+CQ, 1 < POKEG+1+CO, 1 
180 POKEG-1 ,112: POKEG, 1 13 : POKEG+1 , 110 

200 IFKO36THEN250 

201 PQKE36878, 15 = FORLl*255TO230STEP-i ■ P0KE36877, LI : NEXT 

204 X*G-22 

205 PQKEX+00,7 

210 IFPEEKCX)C32THENGOSUB300 ■ GOTO220 

211 PQKEX,93 

215 X»X-22:IFX>7679THEN205 

216 X*X+22 

220 F0RY*G-22T0XSTEP-22 : POKEY, 32 : NEXT 

225 P0KE36877,8 

258 NEXTI , J : IFNfl>0THEN45 

255 NEXTWfl 

260 WI»i:GOTO1015 

300 IFPEEKCX)»90THENCL»CL-1 : POKEX, 87 J GOSUB450 : RETURN 

305 POKEX+CO, 4 : POKEX+CQ, 4 : POKEX+CQ+21 > 4 : POKEX+CQ+23, 4 

310 P0KEX+C0~23,4:P0KEX+CQ~21,4 

315 POKEX, 209 • POKEX+21 , 255 : POKEX+23, 127 

320 POKEX-23, 127 ' POKEX-21 > 255 

330 FORVa0TOWfl: IFBCV)OXORDCVX0THEN340 

335 IFRNDC 1 ». 7THENBCY>"0 : Nfl»Nfl-l : SC-SC+25 = GOSUB400 : GOTO340 

336 DC V)*INT CRNDC 1 >#3-23> : GOSUB450 '• G0T0345 
340 IFBCY)OXQRBCY»0THEN345 
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341 SOSC+50 ' B<V)»0 : NR-NR-i : GOSUB400 

342 POKEX-1 , 32 = POKEX+1 > 32 > PQKEX-22, 32 : POKEX-23, 32 : POKEX-21 , 32 

343 POKEX-44, 32 : POKEX-43, 32 '• POKEX-45, 32 
345 NEXTV 

350 POKEX+21 * 32 • POKEX+23, 32 • PQKEX-23, 32 : POKEX-21 > 32 

355 RETURN 

400 PQKE36878, 15 : P0KE36876, 200 '• FQRL1*250TO150STEP5 

405 PQKE36877, LI = FORL2-158TO190 ■ P0KE36876, L2 • NEXTL2, LI 

418 POKE36876,0:POKE36877,0 

415 RETURN 

450 P0KE36878, 10 = P0KE36875. 145 ' FORL1»220TO255 

455 P0KE36877, LI = P0KE36875, 455-L1 : NEXT 

460 PQKE36875,0:POKE36877,0 

465 RETURN 

1000 UI«2 

1005 GOTO1015 

1010 WI«3 

1015 FORI»1TO1000:NEXT 

1020 PRINT"3SC0RE"SC 

1025 IFWI*1THENPRINT"VQU STOPPED THE BIRDS" 

1030 IFWI«2THENPRINT"THE BIRDS ATE THE CLOUDS" 

1035 IFWI»3THENPRINT"Y0U COLLIDED WITH SOMEDEBRIS" 

1040 END 



Arkenstone 



Taking the part of the intrepid hero, you must wrest the arkenstone from the clutches of the 

evil dragon. 

As just about everyone knows, the arkenstone is a mythical gem prized highly by the Dwarves 
who lost it when the dragon sacked their mountain long ago. 

It may require some clever thinking to work out how to manipulate some of the objects you 
come across. 

Your commands are entered as sentences, pressing 'return' after each word and ending the 

final word with a fullstop. e.g. 
Pick(return) 
Up( return) 
axe. (return) 

Commands can be up to 9 words long. 
Pick/up/the/large/axe./ (/ = 'return') 

is just as valid as the example above. 

Directions can be entered as full words or as the first letter of the compass point, e.g. 
go/north./ orgo/n./ 

At each point in the game, the computer describes your surroundings and you are required to 
give your course of action. 



28 



Commands available are: 

go or move, kick, listen, 

catch, pick, drop, 

skewer, swing, throw, 

fill, inventory, and 

recover — This must be used when getting the arkenstone, 'Pick up' will not work. 

Happy adventuring! 

1 rem** arkenstone ## 

2 Print"M",'chrf<14> 

5 dimlf<7),tf<7),ef<7),df<7),o8<5> 

IS fori-0to7!readlf<i>,tf<i>,efa>,dfa> 

15 next '• dinof (5) , vf <5> > 1X<5> 

2B f ori«0to3 ' readof < i ) , vf < i > , V/.< 1 ) : next 

25 sl»l : dr"6 » ln«2 ' ea«0 s bu«0 

94 9osubl000 

95 ifdr*«lthenl04 

96 ifsl«0andrnd<i».8fchtndr*ln 

97 ifrnd(lX.9thenl00 

95 ifsT»lthenPrint"The dra9on awakes I" :*l«0 

99 Print"The dra«on hide* tht arkenstone. "<lX<5>*int<rnd<l>*7>:dr«l«<5> 

100 ifrnda».8andsl»0andln«drthenPrint"The dra9on has killed aou!"istoP 
104 in*i:Print"Vour course of action" 'inPutifC in) 

185 in«in+i:ifin>9theriPrint"Too verbose" : 9otol00 

119 ifri9htf<ifari-l),l>OV'theninPutifan>5 9Otol05 
111 Print"*" 

115 in«in~l 

116 lf<in>ltrtf(if(in>#ltit(lf(iit»-i> 

117 if if <in>«" inventory "thenQosubl 100 '- 9otol00 

120 if if C 1 )«»p ick "then9osubl200 : 9oto95 
125 if if < 1 >*"droP "then9osubl300 : 9oto95 
130 if if C l >*"k ick "then9ofubl400 ■ 9oto95 

135 if if < 1 >*"mov*"or if C 1 )«"9o" then9osubl500 : 9oto94 

136 if if < 1 )*" throw" then9osub2300 : 9oto95 
140 fori«0to5 

145 if<l^<i>lnoro?i(i)Bl>«ndif(l>ttvfCi>then9osubl600:9oto95 

159 next: Print" I don't understand »ou."'9otol04 

155 data"Mount Oundabad", "sheer wall to the west",e,l 

160 data"North Mirk wood"/' lot of trees" ,sw,20/'South MirkwoodV'lot of treei",en 

,31 

165 data"Lake Town"/ "River Runnin9", we* 24/'Wilder land" /'River Runnin9",wes,365 

170 data"the Misty Mountains", eyrie, n,4,"the Lonely Mountain" /'dark hall",wn,47 

175 data"the Lonely Mountain" /'Pile of treasure", s, 6 

180 datacaSe, catch, 0, sPear , skewer, 1 , bucket, f i I I , 2 

185 dataea9le, listen, 5 

190 dataaxe,swin9, 6, arkenstone, recover, 7 

1000 Prinf'Vou are in ":printlf(ln):print"Vou can see " 

1005 ifln<3orln>4thenPrint"a "; 

1010 PrinttfUn>:fori»0to5 
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1015 lTl5i< i >*lYiAndo«< i >*0thenPr int"ar»d a "; :Printof<i> 

1020 next: if dr»lnthenPrint: Print "The dra9on is here" 

1023 ifdr«lnandsl«lthenPrint"But he's *leePin9" 

1030 return 

1100 PrinVWou have:" 

1105 fori-0to5sifo?ia)*lthenPrint"a ";o*<i) 

1110 next: Print "and are in ":printl*<ln) 

1115 return 

1200 fori*0to5 

1205 iflX(i>«lnandi*(in>*»o$<i)andoX<i>«0thenofi<i>«i: return 

1210 next:print"There isn't a ";i*< in) return 

1300 ifi*<in)«"ca9e"thenea«0 

1301 fori«0to5:ifoJi<i>««landif<in>-o*<i)thenoXCi>ao:l5i<i)aln:retum 
1305 next:print"Vou haven't Sot a ";if< in) Return 

1400 ifi*<in)<>"dra9on"thenprint"Kick what?" return 

1401 ifdrOlnthenPrinf'He isn't here." return 

1 405 s I «0 = P r i nt " Vou have awok e the dr a9on , " ■ return 

1500 ifsl*0andln*drandrnd<l)>.5thenPrint"The dra9on won't let sou. " : return 

1505 d**mid$Ci*an),l,l):bo»0:ifbo*lthenU3)<»ln 

1510 fori*ltolen<e*On)) 

1515 if d*«mid*(e*an),i,l)thenln«val<mid$<d*<ln),i,l)): return 

1520 next : Print"Vou can't move there": return 

1600 forJ»ltoin: ifo*(i)«i*<4)thenl620 

1605 next:print"Do what with it?" 'return 

1620 oni+19otol625, 1700, 1800,2000/2100,2200 

1625 fori»ltoin: if if <i>«"ea9le"thenl635 

1630 next:print"Catch what?" ' return 

1635 ea*i: Print "The ea9le is now in the ca9e" : return 

1700 fori«ltoin: if i*<i)«"dra9on"thenl710 

1705 next 1 Print "Skewer what?" return 

1710 ifdrOlnthenPrinV'The dra9on isn't here" Return 

1715 ifmd<l)>.8thenPrint"The dra9on is an9ry, he advances. ":sl«0: return 

1720 Print "Well done, you've killed the dra9on!":dr»-i: return 

1300 ifln<3orln>4thenPrint"There's no-where to fill it. "Return 

1805 Print"OK":bu«l: return 

2000 ifea«0thenPrint"Vou can't here him." : return 

2015 Print"The ea9le says:" 

2020 Print "What is best axe or sPear?Why not Quench the worm's thirst" 

2025 Print "There is something sPecail in Mirkwood" 

2030 return 

2100 forisltoin: if i$<i)*"dra9on"then2120 

2110 if if < i >*" trees "thenPrint "That was clever-some trees fell down.": return 

2115 next :print"eh?": return 

2128 Print "The dra9on is *n9ry..headvances.":sl a! 0: return 

2280 Print"Well done, you've completed your mission" :stoP 

2388 fori«ltoin: if i*<i)»"bucket"then2318 

2305 next :»rint" Vou can't throw that. ": return 

2310 fori*ltoin: if i*<i)* ,l dra9on"then2320 

2315 next: Print "Not a t that. ": return 

2320 i f drO I mtHenP r i nt " He i sn ' t here » " : return 

2325 Print "That has an9ered the dra9on,he advances " : sl*0 : return 
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Gomoku 



A VIC version of the ancient oriental game. 

Levels 3 and 4 for a hard game, the others are for if you want to win. 
Moves are entered as x coordinate, comma, y coordinate, e.g. 2,3 
Attempt to get 5 stones in a row before your opponent. 
WARNING — This program takes a few minutes to make its move. 

I GQSUB1000 

5 0OSUB200 

6 OO3UB100'OOTO67 
10 HI-0=W*0 

II GOQC+1 

15 V-l 

16 X«l 

17 IFWO0THEN500 

20 IFBB(V,X)Q0Q8F*iTHEN63 

21 DF"~3 

22 HL»5:IF0C<3THENHLpQC 

25 TH-0 : F0RL*HLT0LE8TEP-1 s FQRP»-1T01STEP2 

30 IFTHO0THEN55 

35 FO8D*0TO7i lFXX<D>*L+X<iQRX8<D>#L+X>10THEN50 

40 IFVJi(D)H(L+V<lORV?i<D)#L+V>10THEN50 

41 IFTHO0THEN50 
45 OO8UB2000 

50 NEXTB 
55 NEXTP.L 

60 IFflBS<TH»flBS<HDTHENHI-TH:HV-V:HX»X 

61 IFABS(TH)»HITHENHI»TH:HV«y:HX«X 

65 X-X+liIFX<llTHEN20 

66 V«V+l:iFV<UTHEN16 

67 IFHI-0THENGQSUB100 

71 BX<HV/HX)f-liP«-l 

72 OOSUB5000 

75 INPUTHX,HV=P«1 

76 IFHX<1ORHX>10ORHV<1ORHV>10THEN75 

77 IFBJ«HV,HXX>0THEN75 

79 OO8UB5000 

80 BJi<HV;HX>*liPRINT"OK" 
65 GQTQ10 

100 C-0 

105 HV»INT(RND<l)*10+i) :HX»INTCRND<1>»10+1> 

110 OC+1 

I I I IFO400THENM»1 : OOTO500 
115 IFBX<HV.HX)O0THEN105 
120 HI»9'- RETURN 

200 PRINTS 12345678910" :FOR>1TO10:PRINTI; 

205 IFK10THENPRINT" "i 

210 PRINT"I IIHIIIII II" 

213 NEXTI: RETURN 

508 IFW*-1THENQO8UB5000:PRINT"I WIN" 
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503 IFW*lTHENPRINT"YOU WIN" 

510 ENS 

1000 PRINT":] 00-MOKU" 

1005 VX<0)—i:Xfi(0)-0:V?i<l)»-l:XXa)»l:V?{<2>*0:XX<2>l 

1010 V«3>»l:XXO>-l:V?i<4J-i:X?i<4)»0:VJ4<5>«l:XX<5)«-l 

1015 V?i<6>«0:XJi<6>-l:V?i<7)»-l:X«<7)s-l 

1020 PRINT"ENTER LEVEL<1-4>":INPUTLE:IFLE<1ORLE>4THEN1020 

1025 LE-5-LE--QC«0 

1030 PRINT"T: RETURN 

2000 NP«0:DI»1 

2005 IFBJi<V+VX<D)*DLX+XX<D>#DI>«PTHENNP»NP+l 

2010 IFNP<DITHEN2025 

2015 DI»DI+i : IFDK-LTHEN2005 

2020 IFNPCLTHEN2025 

2021 TH*NP#P:IFP»1RND<D-4»DF OR DF-4*D>THENTH«TH+2 

2022 IFNP«4RNDP*-1THENW-P 
2823 IFNP"5RNDP"»1THENW*P 
2025 IFNP>0RNDP*1THENDF'»D 
2033 RETURN 

5000 C0=»81 ' CL«0 • IFP-1THENCL«6 : C0"87 

5005 POKE38400+HV#22+HX+2* CL '• POKE7680+HY#22+HX+2< CO 

5010 PRim"mmmamm niiiiimiw m" 

5015 RETURN 



Lunar Lander 



Choose one of the three landing sights and guide your fragile lunar module down to a safe 
landing. Points gained for landing depend on which site you land on. You get half points for a 
hard landing, none for a crash. 

Z thrusts you left, 

C thrusts to the right, 

M thrusts upwards. 

Your motion continues until countered by gravity or thrust in the opposite direction. 

As you approach your landing site you will get a close-up scan. 

Landing pads are depicted as green lines in the long-range scan. 

Can you land at the rightmost site for 1 50 points? 



1 SC-7680 : 00*38400 : S*0 

1 5 P0KE36879 , 8 : BY*0 : DX» . 1 = V«0 : X«0 



20 PRINT'THM 
24 PRINT'THT 




iui m jr " 


25 PRINT"™ 


■ 


a ■> a 


30 PRINT".T(I 


1 


a m ar 


35 PRINT'TIS 


ES 


la ia 


40 PRINT"™ 


i 


a awia 


45 PRINT"™ 


m 


m i 
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58 PRINT"n« ■ a I " 

55 PRINT-™ ■ 8 I " 

60 PRINT 1 *™ I 13 

65 PRINT"™ ! Id 

70 PRINT"™ E ST 

75 PRINT"™ ■ M 

80 PRINT"™ BUM " 

85 PRINT"™ 

90 PRINT"™ ■ 

95 F0RI-8163T08185 : POKE I +30720 * 2 : POKEI * 160 '• NEXT 

99 PRINT"»" 

180 PQKESC+INT<Y)**22+X,32 

105 V-V+DV s X-X+DX « IFX>21THENX«0 

110 IFX<0THENX«21 

115 IFV<0THENV«0 

1 16 IFPEEK<8C+INTCV)*22+X>O32THEN1000 

117 IFV>10flNDX<10THEN200 

1 18 IFV>5RNOX>10. 5flNDX<«16THEN400 
120 P0KEC0+INT(¥)*22+X<3 

125 P0KE8C+INT<V)*22+X/88 

130 DV*DV+.02:K-PEEK(197) 

135 DV»DV+<K-36)^8+< <K-33)-KK"34) V20 

140 DX'»DX+<<K"34>-<K«33)>/'i0 

145 OOTO100 

200 V1*V '• X1»X i V«0 i X"»<X-5>IU4+INT<RND< 1 )*6) ■ PO-100 

205 PR INT "TO I " 

210 PRINT":* Bf " 

215 PRINT'*™ ■ IS " 

220 PRINT 11 ™ ■ IS " 

225 PRINT'*™ ■ ■ " 

230 PRINT"™ ■ M " 

235 PRINT'*™ ■ « " 

240 PRINT'*™ I « " 

245 PRINT'-™ ■ * 

250 PRINT'*™ I M " 

255 PRINT'*™ ■ i " 

260 PRINT'*™ ■ Bi 

265 PRINT'*™ ■ M 

270 PRINT'*™ ■ « 

275 PRINT'*™ 1h r 

280 PRINT'*™ WT T " 

285 PRINT'*™ ■ ■«-" 

290 PRINT'*™ ■ "S " 

295 PRINT'*™ ■ 9 

300 PRINT'*™ B M " 

305 print-*™ wmwm IHM 

310 PRINT'*™ BIB "BhwMNiia 1 M " 

315 FORI-8163TO8185:POKEI+30720i 2 'POKEI U60: NEXT SPRINT"*' 

320 P-8C+INT<V)*22+X I POKEP/ 32 « PQKEP+22, 32 • POKEP+23* 32 ! POKEP+21 * 32 

325 X»X+DX:V*V+DV 

326 IF<V<0flNDDV<-.5)ORX<lORX>20THENV«Vl-l VX-X1 :QQTO20 

327 IFV<0THENV»0 
329 P-SC+INT<Y)*22+X 
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338 IFPEEKCP+21 >-104QRPEEK<P+22)-104QRPEEI«P+23>-104THEN800 

335 IFPEEK<P>O32ORPEEK<P+21>O32ORPEEK<P+22>O32ORPEEK<P+23K>32THEN1000 

349 p«p-8C : PQKEP+CO, 3 : P0KEP+21+C0, 3 '• P0KEP+22+CQ/ 3 • PQKEP+23+CQ, 3 

345 P«P+SC s PQKEP, 81 '• POKEP+21 > 85 « POKEP+22* 249 '• P0KEP+23> 73 

358 DV-DV+.02!K«PEEK<197> 

355 DV*DV+<K-36V8+< <K-33)+<K»34) V20 

360 DX"DX-K<K»34>-<K"33»/'l0 

365 OOTO320 

400 Vl-V : Xl-X J V-0 • X-<X-8>#2+INT<RND< 1 >#7-3> « PO-50 

mianiia " 



405 PRINT'TWWIira 
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410 PRINT".* 
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420 PRINT"n« 
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la 


425 PRINT'TIB 
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a 
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435 PRINT"na 
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a 


440 PRINT'TIB 
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la 


445 PRINTS 
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450 PRINT'TIB 
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la 


455 PRINTS 
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460 PRINT'TIB 
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465 PRINT'TIB 
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470 PRINT'TIB 
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475 PRINT'TIB 
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480 PRINT'TW 


B 
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485 PRINT'TIB 
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490 PRINT'Ha 


b mrm ai^ 


495 PRINT'TIB 
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580 F0RI-8163T081S5 '■ POKEI+30720/ 2 : POKEI , 160 : NEXT : PRINT"»" : P0KE6174, 101 = P0KE8175/ 

229 

505 OOTO320 

800 IFPEEK<P+21)O104ORPEEK<P+22>O104ORPEEK<P+23>O104THEN1000 

803 IFV>7flNDPO-50THENPO«150 

804 IFRBS<DX».5ORRB8(I)V».6THEN1000 

805 IFflBS<DX».20RABS<DV>. 15>THEN858 

887 S-8+P0 

818 FORI»1TO2080 ■ NEXT = FRINr' TO W TO M ^ ^ DONE" 

815 GOTO900 

858 PWNr j BBDaBBBMB B WBBMitHffiP landing" 

855 S-S+PCV2 

900 PRINT"T»WWSCORE"S 

905 OOTO1018 

1000 P0KEC0+INTW*22+X, 7 : P0KESC+INT<Y)*22+X, 42 : P0KE36879, 24 

1019 FORI-1TO2000=NEXT 

1015 ENB 



BLk\/whtUredVcvnV^"V GRN V BLU \/ VEL VON VOFF 
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Earth Defense 



As commander of Earth's defense systems, you must stop the invading missiles from 
reaching the ground. 

Move your sights around the screen and launch your missiles to intercept the enemy missiles at 
just the right moment. Be careful, you only have a limited supply of projectiles. 

The game will end if you halt the invasion or if 6 missiles hit the ground. 

W moves your sights up, 

A left, 

D right, 

X down, and 

S fires a missile. 

Earth is depending on you. 

1 PCKE36979..? 

5 °PTWT ,, nW**EflRTH DEFENSE***" : PR INT = PR INT" CNTE* SKILL LEVEL- «-7>" 

6 INPUTSK:!F8K<20RSK>7THENS 

10 PRIMT"3" ■ SH*e : F0RI*8142T08163 • PQKEI ,160 : POKE I +38728/ S ■ NEXT 

15 P*-l:CO*38720:X»ie:V»ll!CI«0:SC«0 

20 FORW*1TOSK!NO=-1 :P«-l:SH»0:MI«15+INT<8K^2) 

22 FORI»0TO5:P«<I>*0:XX<I)«10:VX<I>*19:NEXTI 

25 F0RI»8164T08185:P0KEI+C0,5:P0KEI, 160!NEXTI SP0KE38849/3IP0KE38858/3JP0KE38851> 
3 

26 PQKE8129, 1 12 « PQKE8138, 113: P0KE8131 ,110 

38 F0RI-8T0W:MX<I>«7688+INTCRND<l>#22>:8?«I>««MX<I):DX<I)»INT<RND<l)*3+2i) 

35 NEXTI 

58 IF8K>4THEN53 

51 FORIb0TOSK:QOTO54 

53 FORI-0TOW 

54 IFM«<I)«0ORI>WTHEN100 

55 OR«0 : C»93 

56 IFDX<I>-21THENC-78 

57 IFD«<I>"23THEN077 

58 POKEMXCI3+C0,7:PQKEMJKI>,C 

59 MX CI >«MX< Z >+9X( I ) « IFMX< I X8186THEN65 

60 OO8UB2000 : MX< I )«7680+INT<RND< 1 >#22) : SXC I >«MX< I) : DX< I >*INT<RND< 1 >*3+21 ) ■ OOTO10 


65 IFPEEK<MX< I ) >O32THEN8O8UB1080 « I FOR* 1 THEN 100 
70 P0KEMX<I>+C0i2:P0KEMX<I>/42 

100 K«PEEK<197)iIFK«i64ORK*41THEN150 

101 IFSH«lflNDCK*17ORK-18ORK»8ORK«26>THENSN-0 » 00T01 10 
105 POKE7680+V#22+X;32 

110 X«X+<K«17>-<K«18> 

115 V«Y+<K"9>-(K«26> 

120 IFX<0THENX>0 

125 IFX>21THENX*21 

130 IFV<1THENV»1 

135 IFV>19THENV"19 

140 POKE38480+V#22+X, 3 • P0KE7688+W22+X, 91 
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130 IFP— 1THEN285 

155 FORJ"0TO5:IFPK<J)"0THEN2M 

160 POKE7680+YXU)*22+XHCJ>,32 

165 YK<J>^X<J>+<VX<J>>TVX<J)>-<YB<JKTVX<J>> 

170 M<J>-XX<J>+<XX<J>>TX&<J>>-<XX<JKTXX<J>> 

175 IFXX<J)«TX5i<J>flNDVX<J)«TVJ«J>THENOOSUB3000iOOTO200 

160 POKE38400+Vfi< J >*22+XK< J) , 7 » POKE7680+VX< J>*22+XX( J) , 46 

200 NEXTJ 

205 IFKO41THEN220 

210 IFP-5ORP—2THEN220 

211 IFPX(P+l)»lTHENP-P+i:00T0217 

215 P*P*1 :Pfi<P>-l :TXX<P>-X:TV«<P)-V!8H«1 :POKE3B400+X+V#22/2 

216 PQKE36878,5:PQKE36877,250 

217 IFP>5THENP-0 
220 IFCI>5THEN4000 

222 IFCD5THEN4000 

223 IFP*-2THEN225 

224 PQKE38849, 3 • POKE38850, 3 : P0KE38851 , 3 * P0KE8129, 112: PQKE8130, 1 13 1 POKES 131 , 1 10 

225 NEXTI i IFNCKWTHEN50 
230 NEXTW 

240 PRINT" WELL DONE, YOU STOPPED THE INVASION" 
245 PRINT"VOU SCORED "SClUSK 
258 PRINT"flND LET"CI"MIS8ILES THROUGH" 
268 PRZNT"VOU MERE ON LEVEU'SK 

999 PQKE36676,0:POKE36877,0:END 

1000 E»MX< I > • IFE<8120THENRETURN 

1001 P0KE36878, 15 ■ P0KE36877, 130 

1004 GR«1:PQKE36S79,42 

1005 P0KEC0+E-21 , 7 » POKECO+E-23, 7 '• PQKECO+E, 7 : P0KEC0+E-22, 7 
1010 P0KEC0+E-44, 7 : P0KEC0+E-43, 7 > PQKECQ+E-45, 7 

1815 POKEE, 93 • POKEE-23, 77 '• POKEE-21 , 78 ■ POKEE-22, 93 • POKEE-44, 64 
1 820 PQKEE-43 , 73 : POKEE-45 , 85 
1025 POKE36877,200 

1030 IFE-8129 OR E-8130 OR E»8131THENP*-2 

1031 M»I : QOSUB2000 : MH<M>«0 : NO-NO+1 

1035 POKECO+E, 2 : POKEE, 104 '• POKEE-23, 32 '■ POKEE-22, 32 '• POKEE-21 , 32 

1 840 POKEE-43 , 32 '■ POKEE-44 , 32 : POKEE-45, 32 

1045 POKE36878,0:POKE36877,0'CI"CI+1 :P0KE36879, 8 'RETURN 

2080 FORN«85i<M)TOM«<M>3TEPDX<M> '- POKEN, 32 1 NEXTN 

2005 MXCM)«7680+INT<RND<1>*22) :SX<H)*MX<M> :DX<M>*INT<RND<1>#3+21> 

2010 RETURN 

3000 EX-XX< J) i EV-VXC J) ' E«7680+EX+EV*22 : P0KE36878, 6 '• P0KE36877, 220 

3085 POKEE+CO, 2 '• POKEE+CQ+ 1 ,1 : P0KEE+C0-22, 1 '■ P0KEE+C0-21 , 1 

3010 P0KEE+C0-23, 1 : POKEE+CO-1 , 1 : P0KEE+C0+21 , 1 « P0KEE+C0+22, 1 '■ P0KEE+C0+23, 1 

3015 F0RL-1T04 : ONLGOTO3020, 3030, 3040, 3050 

3020 POKEE, 81 :GOTO3080 

3038 POKEE/ 87 :OOTO3080 

3840 POKEE+CO, 1 : POKEE, 74 '• POKEE+1 , 75 » POKEE-21 , 73 : POKEE-22, 85 

3045 GOTO3088 

3050 POKEE-1 , 93 = POKEE+1 , 93 » POKEE+21 , 74 : POKEE+22, 64 : PQKEE+23, 75 

3060 POKEE-23, 85 : POKEE-22, 64 : POKEE-21 , 73 

3070 POKEE, 32 

3080 FORM" 1 TO50 ■ NEXTM , L 
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3085 POKEE-1 , 32 •• POKEE+1 , 32 :P0KEE+21 , 32 : POKEE+22, 32 • PDKEE+23, 32 

3099 POKEE-23, 32 : POKEE-22 > 32 ■ POKEE-2 1 , 32 

3095 MI«MI-l:Xf«J>»10:VX<J>-19:PJi<J>-0 : IFP«5THENP-0 

3096 IFMI-0THENP— 2 

3100 FORL-0TOW 

3105 IFMX<LK>EflNDM«<L)OE+lP,NDMX<LK>E-22flNDM?i<L)OE-21THEN3H5 

31 10 SOSC+10*U : M«L ■ GOSUB2000 : MX<L>«8 '• NONO+i 

3115 NEXTL ■ P0KE36878, : P0KE36877, ■ RETURN 

4800 PRIHT"BCJi'OU HAVE BEEN DESTROVED" 

4005 PRINT"VOU SURVIVED UNTIL ATTACK WAVE"W%" 

4010 00T0245 
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Nightmare Castle 

Wander around the graphically depicted locations in this realtime adventure. Watch out for 
the monster in your search for the treasure. 

There are doors which open and close, and one which requires the key to open it. In one of the 
rooms, there is an hidden passage-way through the wall which can only be found by trying to go 
through the wall. You may come across the invisible maze and even THE ROOM. 

THE ROOM is a strange place. All sorts of weird things happen, but you'll have to find out what 
yourself. CLUE: if the treasure was in the room, it won't be when you enter. 

The cursor controls at the bottom right of the keyboard move you around the screen. Going 
through a door means you enter another room. 

Objects are dropped by pressing the space bar. Pressing the divide key (/) will thrust your 
sword to the left, if you have one. 

You will leave a trail in the invisible maze, if you reach it alive. The game ends when you bring 
the treasure safely to the room where you began (or if you are eaten), NOT AN EASY TASK! 
THE OBJECTS ARE SHOWN AS FOLLOWS: 
YOU 

THE MONSTER 
THE SWORD 
THE TREASURE 
THE KEY 
TREES 
GOOD LUCK! 



5 POKE650,255 

10 SP«0:GP*0:Rai:SR»INT<RND<l)#4+l):GR-4:MR»GR+INT<RND<l)#3-l):Xl«10:Vl«10'-KP*0 

15 00*30720 '■ X«10 : Y«10 ■ S*7703 : G«8145 

20 KR*9: 10*7756 :MP«32 

25 IFRND<i».5THENGR*10 

50 0NRG0SUB1 100, 1200, 1300, 1400, 1500 • \&m> 1700, 1800, 1900, 2000 

100 Ps7G90+X+Y*22 

101 P0KEP,32=GETfl* 

102 IFR*5THENP0KEP,224 

105 DX*<fl$* ,, ll" >-(R*="M" ) : DY«<fl*""T >-<fi*«"M" ) : D*"DX+DY*22 

106 PE«PEEK<P+D> : IFPE*320RPE«224THEN115 

110 IFKP*1RNDPE*102THEN115 

111 IFPE»31THENSP*l:G0T0115 

1 12 IFPE*28THENGP*1 * G0T01 15 

1 13 IFPE-127THENKP«1 : GOTO). 15 

114 BX*0:BV=0 

115 X-X+W-W+W 

1 20 I FR-3'ANBX* 1 3flNDY* 1 1 THENR*4 : GOTO 1 26 

121 IFX>0fiNDX<21flNDY>0RNDY<22THEN145 

125 R«R+<X"0>-<X«21)+<<Y-22>-<Y«0>)#5 

126 IFX*0THENX*20 

127 IFX»21THENX=1 

128 IFY*0THENY*21 
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129 IFV«22THENY*1 

138 IFR*3RNDX*20THENX«12:Y«11 

135 IFR*4RNDX*13THENX=1 = V«! 1 

140 G0T059 

1 45 P=7688+X+Y#22 '• PQKEP+CO, 2 : POKEP, 81 

150 IF8P-10R8RORTHEN168 

155 P0KES+C0,7:P0KES,31 

160 IFGP*1ORGRORTHEN170 

165 P0KEG+C0,5:P0KEG,28 

178 IFKP-1ORKRCRTHEN180 

175 POKEK+CQ, 7 : POKEK, 127 

180 IFGP*1RNBR*1THENEND 

185 IFMRORRNDRND<l».9flNDMR>-lTHENHR*MR+<MR>R)-<MR<R) :MP*32:X1«1 :V1«10 

198 IFMRORORRND<1X.5THEN250 

191 M*7688+X1+Y1*22 

195 POKEM,MP=IFGR»RORGP"1THEN220 

200 1FSP-0THEN220 

285 IFRND<1».99THENMR»INT(RND<1)#9+1>:MP=32:X1=20:V1=10:GOTO250 

210 DX-<Xi<X>-<Xi>X> :»V«<V1<V>-<V1>V> '>DX+DV»22 

215 GOTO230 

220 DX»<X1>X)-<XKX>:DV«<V1>V>-<VKV):D*DX+DV*22 

230 IFPEEK(M+D)*32ORPEEK<M+D>*81THEN240 

235 IFGF*0THENDX»0;DV*0:D*0 

240 XlaXl+DX:Vl=Vl+DV:M=M+D 

241 IFXK1THENX1*1:V1«V1+1 

242 IFX1>20THENX1*20 

243 IFYK1THENY1*! 

244 IFY1>21THENY1=21 

245 MP*PEEK ( 7688+X 1 + V 1 *22 ) '• M=7680+X 1 +V 1 *22 

246 P0KEM+C0,4:P0KEM,94 

250 IFMR*RflNDX*XlflNI)Y=VlTHENEND 

251 IFflfO" "THEN260 

252 IFSP*lTHENSP=0:SRsR:S=7703 
255 IFGP=1THENGP-0:GR-R =0=8145 
257 IFKP*1THENKP«0:KR*R:K«7756 
268 IFA*OV"ORSP*0THEN100 

. 265 S=7680+X+Y*22-l = POKES+CO, 7 : POKES. 31 
270 IFX~1»X1RNDY*V1THENI1R*-1 
275 FORI*1TO100: NEXT: POKES, 32 
280 GOTO 100 
1000 P0KE646.CL 
1005 PRINT":]8 M r-F0RI»lT022: PRINT" XII" i : NEXT 

1019 F0RI"8163T08183:P0KEI+TO,CL'-P0KEI, 160: NEXT 
1015 PRINT"MI Wi 

1020 FORI*1TO20: PRINT" S WT-NEXT 
1825 RETURN 

1 180 P0KE36879, 9 : CL*1 '• G0SUB1888 

1 1 05 P0KE7689 , 32 : POKE7690 , 32 = P0KE769 1 , 32 

1 120 P0KE7921 > 32 ' P0KE7943, 32 = P0KE7965, 32 

1125 RETURN 

1280 P0KE36879, 189 :CLa5 = G0SUB 1008 _ M ,„~,^ ~ 

1205 POKE7980, 32 : P0KE7922, 32 : P0KE7944 , 32 : POKE7690, 32 : P0KE7691 , 32 J P0KE,'692; 32 
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1210 FORI=1TO20 

1215 CL*INT<RND«>*460>+7702: IFPEEK<CLX>32THEN1215 

1220 P0KECL+C0,5:P0KECL J 88:NEXTI 

1225 RETURN 

1300 POKE36879,27:CL*9:GOSUB1000 

1305 POKE7690, 32 : P0KE7691 , 32 : P0KE7692, 32 

1310 PRiNT ,, HWMKBDffl»iMiiiiiii*nars milium: tiliieiiiir .; 

1315 PRINT" S) XI1IIHII Klllllllll Mlllllll!"; 

1320 PRINT»«OT HHIIlllli 30HI1111! gMllllllil" ; 

1325 PRINT" Si SIMIIMPII^ »1H1I1111I" 

1330 RETURN 

1400 P0KE36879, 172 = CL»2 : GOSUB1800 

1465 POKE7900; 32 : P0KE7922, 32 = P0KE7944, 32 

1410 P0KE7921 , 224 : P0KE7943, 224 = P0KE7965, 224 

1415 RETURN 

1500 P0KE36879, 136 : CL*2 : GOSUB1000 

1505 FORI-1TO100 

1506 CL»7680+INT<RNC<1>#506) = IFPEEK<CL)O32THEN1506 

1507 :POKECL.. 96! NEXT 

1510 POKE7900, 32 : P0KE7922, 32 : P0KE7944, 32 : P0KE7925, 32 

1515 POKE7690, 32 : P0KE7S91 , 32 : P0KE7692, 32 '• P0KE7713, 32 

1520 P0KE7735, 32 : P0KE7714, 32 : P0KE7715, 32 

1525 RETURN 

1600 POKE36879,216:CL«7'-0OSUB1000 

1605 F0RCL=1T0288 = P0KE7688+INT<RNB< 1 >*586> .. 168 : NEXT 

1610 P0KE8174,32:P0KE8175,32:P0KE8176,32: 

1615 P0KE7921 , 32 : P0KE7943, 32 = P0KE7965, 32 

1620 P0KE7942,32:P0KE3153,32 

1625 RETURN 

1700 P0KE36879, 62 :CL*0: GOSUB 1000 

1 705 POKE7900 > 32 = P0KE7922 , 32 : P0KE7944 , 32 : P0KE792 1 , 32 = P0KE7943 , 32 = P0KE7965 , 32 

1 706 IFRNBC 1 ». 5THENP0KE8174, 32 = P0KE8175.- 32 : P0KE8176.. 32 
1710 PRINT"!^!MgMBOiiljiii ■ m ■■ mUmmsm" 

1715 PRINT'^ISUwi 81 mmmmxi i.m ■o..i " 

1738 RETURN 

1 800 P0KE36379 , 56 = CL=2 : GOSUB 1 000 

1805 POKE7900,32:POKE7922,32:POKE7944,32 

1886 IFRNIK 1 ». 2THENP0KE7921 , 32 = P0KE7943, 32 : P0KE7965,- 32 

1.810 P0KE3174, 32 : PGKE3175, 32 : P0KE8176; 32 

1830 RETURN 

1 988 P0KE36879 ..14: CL=5 : GOSUB 1 088 

1 905 pni<rE7900 • 32 : P0KE7922 .• 32 : P0KE7944 , 32 

1918 PRINT" W WWWWWWaMtWI r^WW It IWBII^" 

1928 RETURN 

2008 P0KE36879, 184 : CL«4 : GOSUB1008 

2005 POKE7900 , 32 = P0KE7922 , 32 : P0KE7944 , 32 

2828 MR=R:M1=19:V1=28 

2825 SP*8 = SR= I NT < RNB < H #3+8 > : S=7703 

2830 KP=0 : K«7756 : KR= I NT < RNB < 1 ) *3+ 1 > 
2031 GP*0 : GR=4 : 0=81 45 

2835 RETURN 
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Checkers 



Challenge the computer to the well known game of checkers. 
Enter your move as x coordinate followed by y coordinate, e.g. 

FROM 

?AF 

TO 

?BE 
Try not to let the VIC win. 

1 GOSUB9000 

50 MO=0 

60 GOSUB7000 

1000 PRINT "WDOMilHn^^ 

1005 PRINT"THIS MOVE":MO»0:iNPUTFH* 

1010 PRINT'™" : INPUTTH$ 

1058 PRINT'TTSTRNB BV" 

1060 X*"IEFT*<FH*, 1> ■ Y*»RIGHT$<FH$, 1) :FX«RSC<X*> :FV"flSC<V$) 

1065 X$«LEFT*aH*, 1) :Y$*RIGHT*aH$, 1> :TX*RSC<X$> :TY-RSC<Y*> 

1070 FX*FX-64 :. FY*FY-64 = TX*TX-64 = TY-TY-64 

1420 MO=0 

1430 RXaV,TX>*flJS<FY,FX) :fl«(FV,FX)«B 

1450 IFflBS<TV-FV)>lTHENM0-i:flJi<Fy+<:<TV-FV)/'2>^FX+«TX-FX)/'2))*B:T»T+l 

1470 GO8UB7000 

2000 Y*8 

2006 X«8 

2020 IF RJKY,X>CC AND fl5i<Y,X>OKTHEN2100 

2030 IFflX<Y*X)-C RND V«STHENRX(¥jX)»K 

2040 FGRD»0TG3 

2041 Q«-i 

2045 IFX+2#X<BX1 OR X+2#X<B»8THEH2090 

2046 IFV+2*V<I»<1 OR Y+2#Y<D»8THEN2090 

2050 IF<fiK<Y+Y<D>,X+X<D»««H OR R!«V+V<D)*X+X<D»«W)flNDflJi<V+2#V<D>^X+2!liX<D»«BTHE 

NQ*D 

2070 IFflX<Y,X)OK RNDDMTHEN2100 

2060 IFQ>-1RNDQ<:4THEN2125 

2090 NEXTD 

2100 IFfla<Y,X>»HRNDY»lTHENflH<V,X>«W 

2110 X-X-l : IFX>0THEN2020 

2115 Y»Y-1 : IFY>0THEN2006 

2120 IFQ"-1THEN2350 

2125 PX*X+2#X(Q):PY«Y+2#Y<Q) 

2130 S-S+l 

2135 fi?KY+Y<Q>,X+XCQ»»B 

2140 flX<PY,PX)-flJS<Y,X> 

2145 fl>S<Y,X>«B 

2150 GOSUB7000 

2155 M—l 
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2160 FQRD«0TQ3 

2165 IFPX+2#X(BX1 OR PX+2*X<D»8THEN2200 

2166 IFPV+2*VCD)<1 OR PY+2*Y<D»8THEN2200 

2170 IFAH<PY+Y<D>,PX+XCD)X>HAND AJ«PY+Y<D>,PX+X<D>X>WTHEN2180 

2175 IFAK<PY+Y<D>*2, PXt2«X<D> >«BTHENM«D 

2180 IFWKPYiPXJOK AND D>1THEN2210 

2190 IFM>-1THEN2210 

2200 NEXTD 

2210 IFM—1THEN50 

2220 AJ«PY+Y<M>,PX+X<M»»B 

2222 A8<PY+2*Y<M> > PX+2#X<M> >»AJ«PY, PX> 

2224 AK<PY,PX)*B 

2226 S*S+1 

2230 GOTO50 

2350 Y»0 

2360 PY»INT<RNDa>#8+l> :PX»INT<RND<1>*8+1> 

2370 Y-Y+l 

2371 Q»-i 

2375 IFY>400THEN2440 

2380 IFAJ«PY, PXX>CANDAJ«PY, PXX>KTHEN2360 

2390 FORD"0TO3 

2395 Q»-l 

2396 IFPY+Y<DX1QRPY+V<D»8THEN2425 

2397 IFPX+X<DX1QRPX+X<D»8THEN2425 
2400 IFAH<PYiPX>«CANDD>lTHEN2425 
2410 IFAX<PY+Y<D> * PX+XCD) )-BTHENQ«D 
2420 IFQ>-1ANDQ<4THEN2460 

2425 NEXTD 

2430 IFY<401THEN2360 

2440 F**"L" 

2458 COTO7000 

2460 AX<PY+Y<Q>,PX+X<Q»"AB<PY,PX> 

2470 A5«PY,PX>B 

2490 COTO50 

7008 PRINT"** ABCDEFGH" 

7005 F0RY*1T08 : PQKECQ+Y*22, 1 : PQKESC+Y*22, Y 

7018 FQRX*1TO8:CL»0: IFAH<Y,X>«160THENCL-6 

7015 IFAHCY,X>*C OR RX<Y,X>-KTHENCL-5 

7020 IFAX<Y.X)*H OR AB<Y,X)«WTHENCl»»l 

7025 PQKECQ+Y#22+X, CL ■ P0KESC+Y*22+X, AHCY, X) 

7030 NEXTX/Y 

7035 FRINr'HiroMWW^^ ": PRINT" HUMAN" T 

7040 PRINT" 

7045 PRINT" 

7050 PRINT" 

7210 IFF*«"L"THENPRINT:PRINT"«I CONCEDE THE CAME": STOP 

7230 IFS»12THENPRINT:PRINT"nnTTrni WIN": STOP 

7240 IFT*12THENPRINT:PRINT"liirTTTTM)U WIN" 'STOP 

7260 U*"" " • IFi10»lTHENPRINT"IMHMIMl^^ YOU JUMP AGAIN " : INPUTU 

$ 
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7265 MO*0 

7310 IFLEFTfCU*^ D*"V"THENFH*sCHR*<TX+64)+CHR*<TV+64) :QOTO1810 

7320 RETURN 

7900 STOP 

9000 DIMflX<8<8) 

9005 V<0)*i:X<0>»-l:V<l>»i:X<l)»l 

9010 V<2)«-1 * X<2>-1 ' V<3>«-1 •• X<3>»1 

9050 H*209:C«215:W»139:K"151 

9S6Q B*160:Q«-l:F*-"":S-8:T*0 

9061 CQ*30400:SO7680 

9065 FQRV»1TQ6: IF2*INTW2)"VTHENFORX*1TO7STEP2:GQTQ9075 

9070 FQRX-2T08STEP2 

9075 fl«<V,X>sl60 

9080 lFINKX/2)#2«XTHENflJ«V,X-i>«32 

9085 IFINT<X/'2)#20?<THENflfi<V,X+l>-32 

3Z9Z NEXTX,V 

9115 F0RV-1T03 

9120 IF2#INT<Y/2)»YTHENFQRX=1TQ7STEP2 = OOTO9130 

9125 FQRX*2TQ8STEP2 

9130 flB<Y,X>«C 

9135 NEXTX,Y 

9148 F0R¥«6TQS 

9145 IF2MNTW2)-YTHENFQRX»1T07STEP2 = GQT09155 

9150 FQRX«=2TQ6STEP2 

9155 fi?i<Y,X>»H 

9160 NEXTX.V 
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9165 FH$*"" -THI*"" 

9300 P0KE36879, 9 :PRINT"3IDRflU6HT8": PRINT: PRINT" «D0 VOU WANT FIRST MOVE" 

9310 INPUTV$:PRINT"T ' IFLEFT*(V$, 1>«"V"THENRETURN 

9340 GOSUB7000 

9350 fl«INT(RND< 1 >*3+l )*2 ' Q«INTCRND< 1 >*2> 

9370 RX<3+V<Q) , R+X<Q> )*C • fl?«3, fl>*160 

9390 RETURN 



Dambuster 



Destroy the enemy's dam and help win the war. 

You are given a 3-D, Panoramic view of the dam and the surrounding countryside. You must 
line up your plane as it approaches the dam and drop your bouncing bomb at the right moment. 
Z moves your plane left, 
C moves it right, and 
M drops a bomb. 
You begin with five planes, but beware of the enemy flak. 

3 PQKE650, 129 

10 PRINTS" : P0KE36S79; 83 : CQ*30720 

15 FORI=7680TO7921 =PQKEL 160:POKEI+CO,3:NEXT 

20 PRiNriajwaro^ annum miiiiihi »; 

21 PRINT'-nilllllll 

25 PRINT'TTX ~Sk. HWIIIIII *rfT" lUT fll I" 

26 PRINT"k -dUIIIMMm" 

30 pRINT"■/^/-^^~^ii•••lWl--o^^o^^»\ ,, 

35 F0RV-7954T08185STEP22 : J*INT< (V-7910 V22> 

40 FQRX-V-JTOV+J+1 = IFX>8185THEN45 

41 PQKEX,160:POKEX+CQ,6 

45 NEXT*: IFV-J<8121THENP0KEV-J,233 

46 IFY+J+K-8185THENP0KEY+J+1 , 223 

47 NEXTV 

49 F0RPL=1T05 

58 Wi=160 '• W2»W1 = W3*W1 • W4»W1 : N"i41 : B1«W1 ; B2«W1 : Rl-Wl : R2*W1 : R3«W1 

55 Xa8102+INT<RND<l)#12):Be0:D*l 

60 P0KE36878, 4 : PQKE36877, 129 : DE»0 

61 FL»INT(RNDCU#253)+7955 

65 P-PEEK<FL> • Pl-PEEKCFL+1 > < P2"PEEK<FL+22) « P3-PEEKCFL+23) 

70 IFP«32ORP1«32ORP2-32ORP3»32THEN100 

71 P0KE36879/48 

72 F0KE36878, 10 : PQKE36877, 200 

75 PQKEFL+CQ, 7 = PQKEFL+CO+1 , 7 : PQKEFL+CO+22, 7 : PQKEFL+CO+23; 7 
80 PQKEFl, 213 : POKEFL+1 , 201 : PQKEFL+22; 202 : PQKEFL+23, 203 

85 IFP»120ORPl«120ORP2«120ORP3«120THENDEil 

86 POKE36878j4:POKE36877;250 
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99 PQKEFL+CQ, 6 • PQKEFL+CQ+1 i 6 • POKEFL+CQ+22, 6 • PQKEFL+CQ+23, 6 

91 

93 PQKEFU P '• POKEFL+1 > PI : PQKEFL+22, P2 : PQKEFL+23, P3 

96 IFDE-0THEN99 

97 P0KE36878, 15:FQRI»200TQ128STEP-1 :PQKE36876, I :FQRJ«1TO10:NEXTJ, I 

98 PQKE36877, 158 

99 P0KE36879, 88 '• PQKE36877, 129 

108 P0KE^N:P0KEX+22.B1 :POKEX+44,B2:POKEX+20, Wl :P0KEX+21.W2:P0KEX+23.W3=P0KEX+24 

«H4 

105 POKEX+65, Rl : PQKEX+66, R2 • PQKEX+67, R3 

106 OETfl* 

110 X«X-22+<P.*="Z i, )~<fl$*"C"> 

111 IFX<«7702THEN1000 

112 IFDE-1THEN1000 

113 NsPEEK<X) :Bl«PEEK(X+22) :B2-PEEK<X+44) =Wl»PEEK<X+20) iW2«PEEK<X+21> 
120 W3«PEEKCX+23> :W4«PEEK<X+24> 'Rl-PEEK<X+65> :R2*PEEK<X+66> :R3-PEEK(X+67) 
123 POKEX/ 226 = PQKEX+22, 87 : POKEX+44, 32 J PQKEX+20, 120 : POKEX+21 , 120 : POKEX+23, 120 
130 PQKEX+24, 120:POKEX+65,235:POKEX+66^209:POKEX+67,243 

140 FORI-1TO50:NEXT 

143 IFB«0flNDFI*«"M"flNDX>«7822THENB«X+66 > D-22 

150 IFB-0THEN60 

151 J«l 

155 PQKEB<160:B"B+D 
160 IFB<«7932THEN2000 
165 IFB>8185THEND— 22 
170 IFB>8058THENC*209 

175 IFB<«8058THENC*174 

176 IFPEEK<B)O160THEN2000 
180 POKEB.C 

185 IFB-X>1 10RNDD-22THEND—22 : GOTO200 

190 IFB-XO»88THEND*22 

195 GOTO250 

208 POKEB-1.205 = POKEB+L206 

201 PQKE36877,240 

205 FQRI-1TO100 : NEXT : PQKEB-1 ; 160 : PQKEB+1 , 160 

210 T-0:GOTO60 

250 J-J+l • IFJ<=2THEN155 

255 GOTO 100 

1000 P0KE36877, ' P0KE36878, : P0KE36876, : IFB>0THENPOKEB, 160 

1005 FORI-1TO1000:NEXT:NEXTPL 

1010 P0KE658, ■ P0KE36878, : P0KE36877, : P0KE36876; 

1020 FORI»lTO1000:NEXT:PRINT l, »O)IDIDIHIIHII8kHRRB LINES" 

1025 END 

2000 IFPEEK(B)-160RNDB>7866THEN2050 

2010 P«PEEK<B> :PQKEB,42:FQRI*1TQ100:NEXT 

2015 POKEB.P 

2020 FORI»1TO100 : NEXT = B-0 : T*0 s GOTO100 

2050 IFD«-22flNDB-X>88THEN2010 

2051 IFD*22flNDB-X<-66THEN2010 

2032 P0KEB+CQ,2:PQKEB+1+C0,2:PQKEB, 127 =POKEB+ 1,255 

2053 POKE36878,15:POKE36877;150 

2055 FORI-1TO200--NEXTI 

2856 PQKE36878, 10 : PQKE36877, 208 
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2060 PRINT"HKHHmfe 



MlltllMSI k 



2065 PRINT" WlllWIifll 
2070 OOTO1010 



k I 



Smash 



Try and break through the double wall with your angled bat. 

You begin with 5 balls and must gain points by knocking holes in the wall. There are more 
points to be gained on the bricks higher up. 
The speed of the ball increases as your score gets higher, so beware. 
Z moves your bat left, 
M moves it right. 



1 HI=0:POKE36878,12 

2 PRINT'TH** SMASH 

3 GETfl$:lFfl**""THEN3 
5 PQKE36879,8:X*RND<-TI):S»0:U 
10 PRINT"3il SCORE BRLL 
15 FQRI«=1T019:PRINT"I |»; :NEXT 

20 PQKE38862, 6 : P0KE38883, 6 '• P0KE8142, 101 : PQKE8163, 103 
25 PR INT " MOOMDailildnT 



***": PRINT :PRINT"PRES8 fl KEV TO START" 



! BS"3 
HI 



ar 



38 PRINT"illl I 1 1 I I I I I 
35 PRINT" WWWWTTT1T 
40 PRINT'-IMH I 1 1 1 II i I 
45 PRINT'WU I I I I I 1 1 I 
50 



1 1 1 1 1 1 1 1 1 1 1 »r 



1 1 1 1 1 1 m 1 1 1 1 1 1 

TTTTTTTTTliiTTT 



TV 



TTi M I I I 1 1 1 
TWI I I 1 1 1 1 



TT 



TT 
TT 



TT 



mi 



1TTT 
TTTT 



TT 



TT 



SC=7680 : CL=38400 : B=3152 

DX«INT<RND< l)*3-l):DV—i:X-li:V-20: PRINT" W;TfiB< 17) ;6-LI 
PRINT"nT>»lll»l"HI 
FQRI=33863T0388b2 = PQKEI , 1 : NEXT 
65 PQKEB-1 , 108 : POKEB, 98 = POKEB+1 , 123 
76 FQRI-1TQBS 

K*PEEK(197) : IFKO33RNDKO36THEN100 

POKEB-1 , 32 : POKEB+1 > 32 : B=B+(K=33)-(K=36) : IFB<8i44THENB*S144 
IFB>8161THENB=8161 
POKEB-1 > 108 : POKEB, 93 = POKEB+1 / 123 
NEXTI : PRINT'^illiir'S : IFS>200THtNBS»2 : IFS>500THENBS*1 
PQKESC+Y*22+X, 32 = P0KECL+V*22+X, 1 : V=V+DV = X=X+DX 
IFV>21THEN1000 
IFX>lflNDX<20THEN106 
IFX<2THENDX«1 : P0KE36876, 256 : 00T0158 
I FX> 1 9THENBX-- 1 : P0KE36876 > 250 i 00T0 1 50 
IFV<4THENDV«1 =P0KE36876, 175:G0T0150 
I FPEEK < SC+Y*22+X ) =32THEN 1 50 
POKE36876.200 
115 P=PEEK(SC+Y*22+X> 
128 IFP«108THENDV=-BV:DH=-i :G0T0145 
125 IFP=123THENBV*-DV-DX»1 =00T0145 
130 IFP*98THENDV*-BV '• DX=IHT(RND< i >*3-l ) : GGT0145 
135 3=S+i0-S=8-(V<7)ii«10-(V<5)*30 



56 
60 



71 

75 

89 

85 

100 

101 

102 

183 

184 

105 

106 

110 

111 
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140 P0KESC+¥*22+X/ 32 = DX*INT<RND< 1 >#3-l ) 

141 IFRND<l».01THENDY—DY 
145 Y=Y+DY=X*X+DX 

150 IFX<1QRX>20THENX=X+BX 

151 IFY<;3THENY=Y+BY 

152 P0KE36876.Q 

155 P0KECL+Y*22+X, 1 : PQKESC+Y#22+X, 81 

160 007070 

1000 FORI"lTO2000:NEXT:LI=LI-i : IFLI>0THEN53 

1019 IFS>HITHEHHI=S 

1@14 FORI-1TO2000 : NEXT : PRINT"3HSC0RE"S : PRINT'HI :: H1 

1015 IFHI-8THENPRINT: PRINT" VOU GOT THE HI SCORE* WELL DONE!" 

1016 PRINT" SWANT ANOTHER GAME? "= POKE 1 98 ,0 

1020 GETfl$:lFfl$-""THEN1020 
1030 IFfl$«"V"THEN5 

1035 IFfl*«"N"THENPRINT"QK. XHHBYEj THEN. " : END 
1040 PRINT"! DON'T UNDERSTAND : ' = GOTO 1028 



Dogfight 



Out-maneuver and out-shoot your computer controlled opponent in this game of flying death. 
Avoid crashing into the mountain or the enemy's plane as you line yourself up for a shot. The 
game ends if you crash or either of you are shot down. 
A turns you left, 
D turns you right, 
W moves you up, 
X down, and 

S fires your gun at the computer's plane. 
You are the black plane, the computer is red ('Red Baron', perhaps). 

5 00=30720 :PQKE650,129 

10 PQKE36879, 187: PRINTS"; 

15 X*7988:V*l:Xl*796i:Vl*-l:S*0:Sl*0 

20 PR I NT " XWWflffl^^ TOIIIIF TOIIIHir ^" 

25 PRINT"WWNMMI TOIlMIMMir 1" 

30 PRiNT'iiiiitiir miiiiiiiiiiir miiiiiiiiiiiiif 

ii 

35 FORI*8167TO8182:POKEI+CO,5:POKEI,160:NEXTI:POKE8182,223 

108 P0KE36878,4:P0KE3S877,135 

101 P0KEX, 32 : P0KEX+1 , 32 : POKEX+2, 32 : POKEX+3, 32 : POKEX-22, 32 : P0KEX-21 , 32 = POKEX-20, 3 

2 

105 PQKEX-19, 32 = POKEX+23, 32 '■ POKEX+24, 32 

125 GETfl* : X«X+( <A$=" M" >-<A**»'X" > >*22 

130 IFA$="fi"THENY*~l 

135 IFA$*"D"THENV*1 

140 x»X+Y 

145 IFX<7702ORX>8160THENX*7988 : V-l 

150 IFPEEK<X)O32ORPEEKCX+DO32ORPEEK<X+2)O32ORPEEK<X+3)O32THEN1800 
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155 IFPEEK<X-22)O32ORPEEK<X-2l>O32ORPEEK<X-20>O32ORPEEK(X-l9)O32THEN10e8 

169 IFPEEK<X+23K>32ORPEEK<X+24>O32THEN1000 

165 POKEX+1+CO, : P0KEX+2+C0, : P0KEX-22+C0, = P0KEX-21+C0, = POKEX-20+CO, 6 : POKEX-19 
+CO,0 

166 POKEX+CO, •• P0KEX+3+CQ, 6 : P0KEX+23+C0, 

170 IFV-ITHEN20B 

139 POKEX, 107 : POKEX+1 , 196 = POKEX+2, 160 : POKEX+3, 236 

185 POKEX-21 ; 85 = POKEX-20, 73 = POKEX-19, 233 = POKEX+23, 81 

190 GQT0215 

200 P0KEX+24+C0.8 

205 POKEX, 251 : POKEX+1 , 160 : POKEX+2, 196 : POKEX+3, 1 15 

2 1 8 POKEX-22 , 223 = POKEX-2 1 1 85 = POKEX-28 , 73 : POKEX+24 1 8 1 

215 POKEX1 , 32 = POKEX1+1 , 32 : P0KEX1+2, 32 : PQKEX1+3, 32 : PQKEX1-22, 32 : P0KEX1-21 , 32 : POKE 

Xl-20,32 

220 P0KEX1-19, 32 : PQKEX1+23, 32 ■ P0KEX1+24, 32 

221 IFRND(i».9THENXl«Xl+22 

225 IFPEEKCXl+Vl*5+22^223ORPEEK(Xl+Vl*5+22)s233THENXl=Xl~22:GOTO250 

235 IFPEEK<Xl+Vl*3)=46ORPEEK(Xl+Vl*3+22)«46THENXls=Xl-22:GOTO250 

236 IFPEEK<Xl+Vl*25=46RNB31OXl+Vl*2THENXl=Xl-22:Vl«-Vl:eOTO250 

240 IFRND<1».9THENV1«-V1 

241 IFRND<1».9THENV1»-V1 

242 IFRND<l».9THENXl*Xl-22 
245 X1-XI+V1 

250 IFXK7702ORX1>8160THENX1*7961 : VI— I 

255 P0KEXl+l+C0,2:POKEXl+2+CO,2:POKEXl-22+CO,2:POKEXl-21+CO,2:POKEXl-28+CO,2 

260 P0KEX1-19+C0,2 

265 IFV1-1THEN300 

270 POKEX1+CO, : PQKEX1+3+C0, 2 : P0KEX1+23+CQ, 

275 POKEXL 107:POKEX1+1, 196:P0KEXl+2, 160:POKEXl+3,236 

280 P0KEX1-21 , 85 = P0KEX1-28, 73 : P0KEX1-19, 233 : P0KEX1+23, 81 

285 C0T0315 

300 POKEX1+CO, 2 : P0KEX1+3+C0, : P0KEX1+24+C0, 

305 P0KEXL251 :POKEXl+l, J60 = POKEXl+2, 196=P0KEXl+3; 115 

310 P0KEX1-22, 223 = P0KEX1-21 > 85 = PQKEX1-20, 73 = PQKEX1+24, 81 

315 IFfl$= ,, S"flNDS*8THENS*X-l : D*V : IFV*lTHENS"X+4 : P0KE36877, 240 

320 IFS*0THEN400 

325 J=l 

330 POKES, 32 : S*S+D : S=S-7630 : SP*INT<S/22> : SP*S-SP*22 : S*S+7680 

335 IFSP*0ORSP=21THENSa0:GOTO400 

340 IFS=XlORS=Xl+lOR(S«Xl-21flNDVl=-nOR<S=Xl-20flNDVl*l>THEH2000 

345 IFPEEK<S>032THENS«8 : J=2 = GOTO400 

350 POKES+CO.0: POKES; 46 

395 J=J+1 = IFJOTHEN330 

400 IFS1*0THEN500 

425 >1 

430 P0KES1,32:S1=S1+D1 :Sl*Sl-7680:SP=INT<Sl/22) :SP*Sl-SP*22:Sl*Sl+7680 

435 IFSP*0ORSP*21THENS1*0 : GOTO508 

448 IFS1=X0RS1*X+10R<S1*X~21RNDV*-1 )OR<Sl=X-20flNDV=l )THEN1080 

445 IFPEEK<31 ><>32THENSl«8 : J=2 = GOTO500 

450 P0KESi+C0,2:P0KESl,46 

495 J=J+1 : IFJOTHEN430 

500 IF81-0flNDRND<l».9THEN81»Xi-2:Dl«Vl = IFV1*1THENS1=X1+5:POKE36877,240 
505 GOTO100 
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1000 X1=X 

2000 P0KE36878, 13 

2001 P0KEX1 , 32 : P0KEX1+1 , 32 : P0KEX1+2, 32 : P0KEX1+3, 32 = P0KEX1+23, 32 : PCKEX1+24, 32 
2005 »OKEX1-22,32:POKEX1-20,32:POKEX1-19..32 

2010 F0RI=XlT08i85STEP23 

2011 P0KE36375, <250-I/35>*8 

2015 POKEI+CO, 4 = P0KEI+C0+21 , 4 : P0KEI+C0-21 , 4 : P0KEI+C0-23, 4 

2020 POKEI , 160 : POKEI-21 , 255 = POKEI+21 , 255 : POKEI-23, 127 

2021 FORJ=1TO100=NEXT 

2025 POKEI+CO, : P0KEI+C0-23, s POKEI-21 , 32 : POKEI+21 , 32 

2030 NEXT 

2835 1=1-23 : POKEI+CO, 7 = POKEI+CO+1 > 7 ■ POKEI , 127 : POKEI+1 , 255 

2040 P0KE36879.42 

3000 POKE650, = P0KE36878, 8 = P0KE36877, : P0KE36875, 8 

3005 GOTO3005 



Night Raid 



Under cover of darkness you pilot your plane over the city, picking out your target in the light of 
the flashes of enemy flak. 
Try and bomb the reactor before you are hit by flak or one of the enemy's ground to air missiles. 
W moves your plane up, 
X down, 

D accelerates you forwards (you already move forwards), and 
A backs you up. 
S will drop a bomb on the city. 

5 00=38720 

10 P0KE36879, 8 = PRINT"T = M=0 : M*0 = B«0 : P-7680 : F«9 
15 PRINT"»XDmM)«m^ I WIS 1 \" 

20 PRINT" WMII^ - I SI B «T" 

25 PRiNrwra i it iai ill is bm" 

30 PRINT"lB.ia BMIIAS"! BS SIMM " 

35 PRINT'TJSI C 

40 FORI=8142TO8185:POKEI+CO,0: POKEI. 160: NEXT 

50 P0KEP,32=P=P+1 :K"PEEK(197> :P*P+<K*17>*2-<K*18> 

55 P«P+<<K*9)-<K=26)>*22 

60 IFP<7680THENP=7680 

61 IFP>7963THENP=P-22 

65 IFPEEK<P)O32flNDPEEK(P)O77PNDPEEK<P)O89THEN1000 

78 P0KEP+C0,3:P0KEP,62 

75 IFM>0ORM1>0THENPOKE36878,5:POKE36877, 138 

76 IFM<lflNBMKlTHENPOKE36877#0 
88 IFM>0ORM<0THEN100 

90 IFRNIK 1 ». 95THENM*S029 : P0KEM+C0 , 4 : POKEM, 42 = FORI=1TO100 : NEXT 

100 IFIK1THEN158 

1 05 P0KEM+C0 , 1 : POKEM , 77 : P0KEM+ 1 , 32 : POKEM+22 , 32 ■ M=M-23 

110 IFM>7679THEN115 

111 N«0 
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i 12 FORI*8029TO7688STEP-23 : POKEI , 32 = NEXT : P0KE36877, 8 : GOTO150 

115 IFPEEK<M)=32THEN135 

120 IFPEEK<M)=62THEN1000 

125 IFPEEK<M)*46THENP0KEM, 42 '■ FORI=1TO100 : NEXT : B=0 : M=0 : GOTOl 1 1 

135 POKEM+CO, 2 : POKEM+1+CO, 2 = P0KEM+C0+22, 2 

1 40 POKEM ,127s POKEM+ 1,123: POKEM+22 , 1 24 

150 IFM1>0ORMK0THEN170 

1 69 IFRND < 1 ) > . 95THENM 1 =8062 = POKEM 1 +CO , 4 : POKEM 1 , 42 : FOR I * 1 TO 1 08 : NEXT 

170 IFMK1THEN220 

175 POKEM1+C0+22, 1 '• P0KEM1+22, 89 : P0KEM1+23, 32 : Mi-M-22 

188 IFM1>7679THEN185 

181 Ml»8 

162 FORI*8062TO7680STEP-22 : POKEI , 32 : NEXT : P0KE8884 , 93 : P0KE8884+C0 , 8 ■ P0KE36877 ,8=0 

OTO220 

185 IFPEEK<M1)=32THEN285 

198 IFPEEK<M1>*62THEN1888 

195 IFPEEK<M1>*46THENPOKEM1,42:FORI=1TO100-'NEXT:B»0:M1«0:GOTO181 

285 P0KEM1+C0, 2 : P0KEM1+1+C0, 2 : P0KEM1+C0+22, 2 

210 P0KEM1 , 225 : P0KEM1+22, 126 : P0KEM1+23, 126 

220 IFK*41flNBB-0THENB*P+22 

225 IFB=0THEN300 

226 P0KE36878 ,12: P0KE36876 , B/25-75 

230 POKEB, 32 = B=B+23 : !FPEEK<B)=32fiNDB<8135THEN290 

231 POKE36876,0 

235 IFB>8185THENB*0:GOTO380 

240 IFBOM8NIIBOM1THEN260 

245 POKEB+CO , 4 ■■ POKEB , 42 : FOR I « 1 TO 1 88 : NEXT : POKEB , 32 

250 I FB«MTHENB=0 '• POKEM+ 1,32: POKEM+22 , 32 : M=0 : GOTO 1 1 1 

255 B*8 •• P0KEM1+22, 32 : P0KEM1+23, 32 : Ml-0 : G0T0131 

260 IFB<8032THEN290 

26 1 P0KE36879 , 42 : POKEB+CO , 7 : POKEB+CO+ 1,7 = POKEB , 77 : POKEB+ 1 , 78 

262 P0KE36878, 15 : P0KE36877, 147 : FORI=1TO300 : NEXT 

264 P0KE36879,8 

265 IFB<8059ORB>8068THEN282 

266 POKEB+CO, 1 : POKEB+CO+1 , 1 : P0KEB+C0+22, 1 : P0KEB+C0+23, 1 

267 POKEB, 32 :POKEB+ 1,32 

278 FOR I * 1 T058 : P0KE36879 , 1 27 '• P0KE36879 , 42 

271 POKEB, 32 : IFI>*25THENP0KEB+1 , 32 = P0KEB+22, 32 : POKEB+23, 32 

275 IFK25THENP0KEB,87 

288 I F I >=25THENP0KEB , 85 : POKEB+ 1,73: POKEB+22 , 74 : POKEB+23 , 75 

28 1 NEXT I : PR I NT " T : P0KE36878 , 8 : P0KE36877 , 8 : STOP 

282 POKEB, 32 :P0KEB+ 1,32 

283 I FBO8852flNBBO8074THEN286 

234 I FM>8THENP0KEM , 32 : POKEM+ 1,32: POKEM+22 , 32 

285 M=-l= GOTOl 12 

286 IFBO8051THEN289 

237 IFMl>8THENP0KEMl,32:P0KEMl+22,32:P0KEMl+23,32 

288 Ml=-l:G0T0182 

289 B=0:GOTO380 

290 POKEB+CO, 5: POKEB, 46 

300 IFRND<1X.9THEN50 

301 F*INT<RNB< 0*264+7681) 
305 IFF»M0RF*M1THEN58 
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306 : P0KE36878, 9 : P0KE36875, 138 : P0KE36876, 129 : P0KE36877, 163 

310 POKEF+CO, 4 : P0KEP+C0-23, 4 : P0KEF+C0-21 , 4 : P0KEF+C0+21 , 4 : P0KEF+C0+23i 4 

315 P0KE36879, 48 : POKEF, 289 : POKEF-23, 127 : POKEF-21 , 255 = POKEF+21 , 255 = POKEF+23, 127 

328 I FFsPORF-2 1 =P0RF-23=P0RF+2 1 =P0RF+23=PTHEN 1815 

325 FORI*1TO200 = NEXT : *0KE36879.. 8 : POKEF, 32 = POKEF-23, 32 : POKEF-21 , 32 : POKEF+21 , 32 

338 POKEF+23 , 32 : P0KE3S875 , : P0KE36377 , : P0KE36876 , : GOTO50 

1000 P0KE36879, 120 : PQKEP+CO, 2 : P0KEP+C0+23, 2 = P0KEP+C0+2, 2 : P0KEP+C0+46, 2 : POKEP+CO+ 

44.. 2 

1018 POKEP, 127:POKEP+2;255:POKEP+23,209:POKEP+44,255:POKEP+4€, 127 
1015 P0KE36675 , : P0KE36876 , : P0KE36877 , : P0KE36878 , 
1820 END 



Tank Battle 



Form a strategy to defeat the computer's tank in this realtime game. Gain points by shooting 
the computer's tank and its fuel drums. Move around the screen, chasing the computer and 
avoiding the mines. 

You start off at the bottom right corner, the computer is at the top left. 

W moves your tank up, 

A moves it left, 

D moves it right, 

X moves it down, and 

S fires your gun. 

The winner is the first one to get 1 50 points. 

5 P0KE658,255 

10 P0KE36879, 248 » PRINT"T : 00=38720 : SC-0 = CC=0 

15 F0RI*1T015 : M*7680+INT<RND< 1 >*506) : POKEM+CO, 2 : POKEM, 42 : NEXT 

20 FORI*1TO10:M=7682+RNIK1)*5+(<RND<1)*5+1)*22) 

25 POKEM+CO,5:POKEM,160 

38 NEXT 

35 F0RI«1T018 = M-8185-RNIK 1 )#3-< <RND< 1 5*5+1 >*22> 

48 POKEM+CO , 6 : POKEM , 1 60 

45 NEXT 

50 F0RI*7684T07728STEP22 ■ POKEI+CO, 2 : P0KEI+1+C0, 2 : P0KEI+2+C0, 2 

55 P0KEI J 8l:P0KEI+L8i:P0KEI+2,81:NEXT 

60 F0RI*8135T08181STEP22: POKEI+CO, 3 = P0KEI+1+C0, 3 : P0KEI+2+C0, 3 

65 POKEI , 81 : POKEI+1 , 81 : POKEI+2, 81 : NEXT 

78 POKE38400,5:POKE38905,6:POKE7680, 114:P0KE8185, 113 

75 i>7680 : P*8185 : DC*22 : DP— 22 : EP»8 : EO0 

80 DIMDXO) :DX<8>"1.!DJJ<1)-22:DX(2>«-1 :D8<3>«-22 

100 GETfl*:lFfl$s'"'ORfl$="S"THEN150 
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185 EP=(fl**"fl" >-<R**"D" >+< <fl**"W" >~<fl*""X" > >*22 

110 IFEP-0THEN150 

1 1 1 P0KE36S78 , 5 : P0KE36877 , 230 
1 1 5 DP*EP = POKEP , 32 : P*P+DP 

117 IFP<7680ORP>8185THENP«P-DP 

120 IFPEEK<P)=42THENP0KEP+C0, 4 : P0KE36877, 140 : FORI«1TO200 : NEXT : CC=CC+20 

125 IFPEEK<P)032THENP"P-DP 

130 POKEP+CO,6:CH=107: IFBP*22THENCH«114 

135 IFDP»-1THENCH»115 

140 IFDP*-22THENCH*113 

145 POKEP,CH 

1 50 P0KE36877 , : P0KE36S76 , 

151 EC»DC 

152 IFPEEK<C+EC)=32P,NDRNDa».9THEN175 
155 1=0 

160 IFC+EC<7680THEN175 
165 IFC+E08185THEN175 
170 IFPEEK<C+EC)*32THEN200 
175 1*1+1 

180 IFI>8THEN195 

181 IFRNDC1X.9THEN193 
185 IFC<PTHEHE01W< INT<RND< 1 >#2> > : GOTO160 
190 EC«TO<INT<RND(l>«2+2» :GOTO160 

193 EOD«INt<RND<l>«4» 

194 GOTO160 

195 EO0:GOTQ205 

200 DC=EC: IFPEEK<C+DC*2)*46THENDC*-DC::GOTO150 
205 POKEC, 32 ■ C*C+EC : POKEC+CO, 5 = CH=107 : IFDC*22THENCH*1 14 
210 IFDC*-1THENCH=115 
215 IFDC"-22THENCH"113 
220 POKEC, CH 
225 IFS=0RNDfl** ,, S l, THENS*P-s-IiP : BS*BP '• P0KE36876, 245 : P0KE36877, 150 

230 IFS=0THEN300 

231 J-l 

235 POKES, 32 : S=S+DS : IFPEEKCS>=32THEN260 

236 P0KE36877, 130 
240 IFPEEK<S)O81ORS>7910THEN255 
245 POKES+CO , 4 : POKES , 42 
250 FORI=1TO200 : NEXT : POKES, 32 : SC=SC+10 

255 IF3«CTHENSC=SC+20 : POKEC+CO, 4 : POKEC, 42 : P0KE36876, 130 

256 S*0:GOTO300 

260 S=S-7630 = V-INTCS/22) = X*S-Y*22 = S=S+7680 
265 I FX=0ORX=2 1 ORV=0ORV=22THENS=0 : GOTO300 
270 POKES+CO, 6- POKES, 46 
275 J=J+1 ' IFJOTHEN233 
300 IFRNDC 1 ». 9PNDS1*0THENS1=C+DC = CS=BC : P0KE36877, 140 : P0KE36876, 245 

305 IFS1=0THEN400 

306 J-l 

310 POKES!, 32 = S1*S1+CS : IFPEEK(SO=32THEN335 

311 POKE36877..130 

3 J 5 I FPEEK (. S 1 ) OS 1 ORS 1 <79 1 8THEN330 
320 POKES 1+CO, 4= POKES 1,42 
325 FOR I b 1 TO200 : NEXT : POKES 1 , 32 : CC«CC+ 1 
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330 IFS1*PTHENCC*CC*20 : POKEP+CO, 4 : POKEP, 42 : P0KE36876.. 130 

331 S1«0:GOTO400 

335 S1*S1-7S80 = Y«INT<Sl/22) = X=S1-V*22 : 81=81+7680 

340 IFX=0ORX=21ORY=0ORV*22TNENS1*0 = GOTO400 

345 POKES, 32 : 3*8-7680 : Y»INT<S/22) : X«S-Y*22 

350 S*S+7680: IFX*0ORX=21ORV=0ORV=22THENSa0:GOTO400 

355 POKES1+CO,5:POKES1,46 

360 J=,T+1 : IFJOTHEN310 

400 IFSC<1508NDCC<150THEN108 

1000 P0KE658, : FORI=1TO2000 : NEXT : PRINT"T 

1005 PR I NT "SCORE: » :PRINT"VOU"SC 

1810 PRINT"COMPUTER"CC 

1015 P0KE36876, : P0KE36877, : P0KE36878, 



Danger Star 



Accelerate your fighter up the trench of the Danger Star, avoiding the enemy laser fire. Then, 
as your target comes into view, fire your torpedo at the exhaust port and hope for a direct hit. 
Z moves your fighter right, 
C moves it right, and 
M fires a torpedo. 

Any numerical key will alter your speed up the trench. 
Remember, don't fire too early. 

1 P0KE36879, 24 : PQKE650, 129 : SC=4+INT(RND< 1 )*1 1 ) : SP*1 = DI*0 : TP«0 : TL*5 : CQ*30720 

2 PRINr'aOUMN^^ :PRINTTRB<SC) ,, Mn" 

3 PRINT"**! 

4 print"h»mdist. covered : " 

5 print-™ 

6 PRiNT-rrnarroRPEDOEs left:" 

10 PRINT' 1 !™ . y^S ,W la I 

r 

15 PRINT" ^a . . w ia . W" 

20 PRINT" ^a . . w ^a . W" 

25 PRINT" ia W 18 W" 

30 PRINT" ^a W ▼" 

35 PRINT" /\ / s" 

48 PRINT" / s / v 

45 PRINT" / \ / \" 

50 PRINT" / \ / yi 

60 FQRW680TQ8164STEP22 : PQKEI+CQ, 2 : POKEI > 160 : NEXT : FORW701TO8185STEP22 : POKEI+C 

70 POKEI/ 160: NEXT 

80 F0RI*8165T08184 : P0KEI+C0, 2 : POKEI , 160 • NEXT 

100 QETR*:lFfl**""THEN120 

110 IFfl**"Z"ORfl**"C"THEN500 

115 IFfl*-"M"flNDTP«0flNDTLO0THENTP«8098+SC = TL*TL-1 = T< I >*32 : T<2>«32 = T(3)*32 : G0T012 
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Ill 



118 SP*VflUfl$> 

120 DI-DI+1 

130 IFRNDaX. U4ANDDK460THENGQSUB1000 

135 IFRND<1X.11THENGQSUB2500 

140 IFDI-460THENGQSUB1500 

150 IFDI*560THEN2000 

160 PRINT"W»MM»MN«IMflr ; DI 

161 PRiNT"rnwiiii«iiiiiiiiiiS" ; tl 

162 IFTPQ0THENQQSUB3000 

165 IFSP>7THEN180 

170 FORI«1TO1400-SP*200:NEXT 

180 OOTO100 

500 PRINT" jraWWWD^^ 

505 SC»SC+<fl*«"Z")-<fl*B"C"> 

510 IFSC>16THENSC«16 

520 IFSCC4THENSC-4 

525 pRim n mmm mmm mam" ■PRiNrmB<sc>"Hdrf | 

530 G0T0128 

1000 P0KE36879, 120:V*INT<RND<1>*6> :X*2+INT<RNDa>*16> =FL«7988+<V*22+X) 

1010 F<l)*PEEK<FL-23) 

1020 F<2>PEEK<FL~21> 

1030 F<3)*PEEK(FL> 

1040 F<4>PEEK<FL+21> 

1050 F(5)»PEEK<FL+23) 

1060 PQKEFL-23+C0, 2 ' POKEFL-23, 127 : P0KEFL-21+CQ, 2 : POKEFL-21 , 255 .: POKEFL+CQ, 4 : POKEF 

U81 

1070 PQKEFL+21+C0, 2 : POKEFL+21 , 255 : P0KEFL+23+CQ, 2 : POKEFL+23, 127 

1075 F0RI«1T011X:NEXT _„, M „ 

1080 P0KEFL-23+C0, = POKEFL-23, F< 1 ) : P0KEFL-21+C0, = POKEFL-21 > F<2) '• POKEFL+CQ, : POK 
EFL,F<3> 

1090 P0KEFL+21+C0, ' POKEFL+21 1 F<4> = P0KEFL+23+CQ, : POKEFL+23, F<5> 

1091 IFF<3>»TPORF<3)«TP+22QRF<3>*TP+23THEN1200 
1100 P0KE36879.24 

1110 RETURN 

1200 POKETP; T< 1 > : POKETP+22, T<2> = PQKETP+23, T<3) : GOTO3200 

1500 P0KE7954+CQ, 2 • P0KE7954, 213 ■ P0KE7955+C0, 2 '■ P0KE7955, 281 

1518 P0KE7976+C0, 2 : P0KE7976, 262 : P0KE7977+CQ, 2 i P0KE7977, 203 

1520 RETURN 

2000 P0KE36879, 120 : FORI«1TO250 ■ NEXT : P0KE36879, 40 

2805 FQRI*1TO250:NEXT 

2010 P0KE36879, 120 • FORI-1TO250 : NEXT : P0KE36S79, 40 

2015 FORI«1TO250:NEXT 

2028 PQKE36879, 120 = FQRI*1TO250 = NEXT : P0KE36879, 40 

2825 FORI*1TO250=NEXT 

2030 P0KE36879,8:PRINT ,, n*'0U FOILED HUM « «" 

2850 REM##KRB00M#* 
2108 END 

2580 F0RW998TQ8152STEP22 

2581 IFI*TP0RI*TP+23THENH*1 
2510 POKEI+CO,2 = POKEL103:NEXT 
2515 FORI*1TO100:NEXT 

2520 F0RI-7998T08152STEP22 
2538 POKE L 32= NEXT 
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2535 IFH«1THEN1200 

2540 IFSO9ORSC*10THEN2000 
2550 RETURN 

3000 POKETP, T< 1 > : POKETP+22, T<2> 

3001 P0KETP+23,T<3> 
3010 TP*TP-22 

3020 IFTP<7724THEN3200 

3030 IF<TP*79980RTP»7999 ) RNDSP>5flNDD I >525THEN4000 

3031 IFPEEK(TP>-160ORPEEK<TP>-46THENZ(1>-128 

3032 IFPEEK<TP+22)«160ORPEEK<TP+22)-46THENZC2>-128 

3034 IFPEEK<TP+23)=160ORPEEK<TP+23)»46THENZ<3)*128 

3035 T<1)-PEEK<TP> 

3036 T<2)-PEEK<TP+22) 

3040 POKETP+Co'J : POKETP, 103+Z< 1 > - POKETP+22+CO, : POKETP+22, 106+Z<2> : P0KETP+23+C0, 



3845 POKETP+23, 101+ZO) 
3050 RETURN 

3200 TP*0 ■ F0RI=1T03 : Z< I >«0 : NEXT : H=0 

3201 RETURN 
4000 FQRI*1T05 

4005 P0KE7954+C0, 7 : P0KE7954. 213 : P0KE7955+C0, 2 : PQKE7955, 201 

4010 P0KE7976+CQ, 7 : P0KE7976, 202 : P0KE7977+CQ, 7 : P0KE7977, 203 

4020 FORJ*1TO250:NEXTJ 

4030 P0KE7954+C0, 2 : P0KE7954, 213 = P0KE7955+C0, 2 : PQKE7955, 201 

4040 P0KE7976+C0, 2 = P0KE7976, 202 : P0KE7977+C0, 2 : P0KE7977, 203 

4050 NEXT 

4060 FORI*1TO10 

4100 P0KE36879, 120 : FORJ*1TO250 = NEXT : P0KE36879, 40 

4110 FORI 1=1TO180: NEXT 

4120 NEXT 

4200 P0KE36879,8:PRINT»:j*iELl DONE LUKE" 

4210 PRINT'WOU DESTROYED THE flDERTH STAR*' 

4220 PRINPflND SRVED EVERVONE. " 

4300 REM#*END** 

4310 END 
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Reversi 



Reversi (often called Othello™) was invented in 1888. Reversi was played on a standard 
checkers board, using double-sided pieces— red on one side, black on the other. In his splendid 
book "Discovering Old Board Games" (Shire Publications Ltd., Aylesbury, 1980), R.C. Bell ex- 
plains that black begins the game by placing a piece, black side up on one of the four central 
squares on the empty board. Red replies by placing her first piece, red side up on another central 
square. "These four squares are covered in the first four turns of play, and then the players con- 
tinue alternately, placing their pieces on a square adjacent to the one occupied by an enemy 
piece," Mr. Bell writes. 

Any enemy pieces in a straight line between the latest piece placed and another one of the 
player's pieces, is then turned over to show the player's colour. The winner is the player with 
the most pieces when the board is completely covered, or when neither player can move. 

You'll find the VIC plays slowly, but remarkably well, in this version of the game. You get the 
choice of going first or second. You move by entering the number of the square down the side, 
then the number across, entering both as one double-digit number (such as 36). 

Structure of the program: 

Line 6: Sets a black border. 

Lines 1 to 110: Sets all elements (except those around the 'frame') of the board to the code 

of a full stop (42). Lines 70 to 1 00 set the first four pieces in place (noting that X has been 

set equal to the character code of X and to the code of 0). 
Lines 1 20 to 1 70: Give the player the option of first move. 

Routine from line 1 000: This is the heart of the game, the VIC's Reversi-playing intelligence. 
Lines 1 340: If both H and R equal zero, then neither the computer nor the human player can 

move, so the game is over. In this case, control is sent to the routine from line 5000 which 

determines who has won. 
Routine from 2000: This accepts the player's move, and acts on this. The player enters a zero 

if she is unable to move (line 2040). 
Routine from 3000: Prints and reprints the board. Note the use of the 'home' key here to make 

the pieces change before your eyes. 
Routine from 4000: This flips the pieces. 
Routine from 5000: End of game. 
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Suggestions for improvement: 

• Change the representation of the pieces to use, say, red and blue circles. 

• Change the computer's strategy by experiment with the value 1 220 to 1 270. Changing all 
the two's to three's improves the VIC's play slightly, but slows its response time down. 

• Add some sound for each piece as it is flipped. 

1 REM REVERSI CHRRLTON/HflRTNELL 

2 REM NOTE LETTER 0, NOT ZERO 

3 REM CLS IS CLEAR SCREEN 

4 PR I NT" 3": REM CLS 

5 X=flSC<"X ,, >':r>RSC<"0") 

6 POKE 36879 ,24 = REM ELACK BORDER 
10 BIMR«0,10) 

26 F0RB=1T010 

39 FORO1TO10 

46 IF EOl AND CO! AND EC 10 AND CO IS THEN A<B ,C>- flSC<".") 

50 NEXTC 

60 NEXTB 

70 A<5,5>X 

SO A(6..S>-K 

90 fK6,5>«0 

100 A<5,6><l 

110 P^O 

120 PRINT'TWDO YOU WANT TO GO": REM CLS, RED 

130 PRINT"FIRST a-YES, 2-NO)" 

140 INPUT W 

130 PRINT"3T:REM CLS, BLUE 

160 GOSUB 3000 

170 IF W*l THEN 2000 

1000 PRINT" MY MOVE 

1010 S-0 

1020 T'X 

1038 H=0 

1040 F0RA=2 TO 9 

1050 F0RB=2 TO 9 

1060 IF R(A,B>046 THEN 1320 

1070 0^0 

1080 FORO-1 TO 1 

1090 FORD^-1 TO 1 

1100 Y-% 

1110 F-A 

1120 G*B 

1130 IFA<F+C,G+D)OS THEN 1180 

1140 K=K+1 

1150 F=F+C 

1160 G=G+B 

1170 GOTO1130 

1180 IFA<F+C,G+D)OT THEN 1200 

1190 GM3+K 

1200 NEXTD 

1210 NEXTC 

1220 IFFK2 OR A=9 THEN G=Q*2 

1230 IFB=2 OR B=9 THEN Q=Q*2 
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1246 
1250 
1260 
1270 
1280 
129Q 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 

2000 
2010 

2020 
2035 
2040 
2050 
2060 
2070 
2080 
2090 

2100 
3000 

3010 
3020 
3030 
3032 
3035 
3040 
3050 
3Q60 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3152 
3155 
3157 
3170 

4000 
4010 

4020 
4030 
4040 

4050 



IFA-3 OR A^8 THEN Q=Q/2 

IFB-3 OR B=8 THEN Q=Q/2 

IF<A=2 OR A=9) AND <B=3 OR B=S> THEN Q=Q/2 

IF<A<3 0RA=8>AND<Z=2 OR Z=9> THEN Q^G/2 

IF Q<H OR GN3 OR <RND<1»0.3 AND GNH) THEN 1320 

H=Q 

M=A 

N=B 

NEMTB 

NEXTfl 

IFH^O AND R=0 THEN 5000 

IFH^O THEN 1370 

GOSUB 4000 

G08UB 3000 

INPUT"VOUR GO'SR 

s~x 

T-O^REM LETTER 

REM TO PASS 

IF R=0 THEN 2090 

IF R<11 OR R>88 THEN 2000 

M^INTCR/10>+1 

N=R-10*INT<R/10>+1 

GOSUB 4000 

GOSUB 3000 

GOTO 1000 

PRINT "8": REM HOME 

C=0 

H=0 

PRINT : PRINT"! SREVERSIi" = PRINT 

REM BLACK , RVSON , RVSOFF 

PR I NT " 3 31 2345678S5" : REM RED , RVSON .. RVSOFF , BLUE 

F0RB=2 TO 9 

PRINTB-l; 

F0RD=2T09 

PRINT CHR$<A<B,D>>J 

IF A(B,D>=X THEN C=C+1 

IF A<B,D>0 THEN H=H+1 

NEKTD 

PRINTB-l 

NEXTB 

PRINT"!* ai2345678Si" = REM RED, RVSON, RVSOFF, GREEN 

PRINT 

PRINT" I HflVE«l";C 

PRINT 

PRINT'' WW HAVES" ;H; ,! 3" 

PRINT 

RETURN 

FORC=-l TO 1 

FORD— 1 TO 1 

F=M 

G*N 

IFA<F+C,G+D>OS THEN 4080 

F=F+C 
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4069 G=G+D 

4070 OOTO4040 

4080 IFA<F+C,G+D)OT THEN 4140 

4090 A<F,G>=T 

4100 IF M=F AND N=G THEN 4140 

4110 F=F-C 

4120 G=G~D 

4130 GOTO4090 

4140 NEXTD 

4150 NEXTC 

4160 RETURN 

5000 IFOH THEN PRINT" I W0N";C.:H 

5010 IFH<C THEN PRINT"V0U W0N";C;H 

5020 IFH=C THEN PRINT" IT'S fl DRAW!" 

5030 END 

Fruit Machine 

This splendid program, which uses the VIC's graphics most effectively, was written for the 
book by M Kendall. There are three reels, and each reel has four symbols. You can stop all the 
reels, then either HOLD or NUDGE each one. 

Due to effective government cost-cutting, you start with 5p, and each game costs you just 
2p. 

The winning combinations: 

Same, same, same -5p 
Same, same, any -3p 

Any, same, same -1p 

Your controls: 

Any key to stop the reels 

N to NUDGE 

H to HOLD 

Any to play again 

9 P0KE36879,2?:PRINT"n)!B BV M.KENDALL 1332" 

i PRINT"MMHfi] 3D0 YOU WANT" :PRINT"r* ^INSTRUCTIONS?" :PRINT"MHHfil (V OR 

N>" 

2 GETQ$:IFQ$=""THEN2 

3 IFQ$="V ,, THEN GO3UB1088 

4 L=5 

5 PRINT" 3" 

6 L=L-2 

7 W=0 

8 POKE 36878,10 

9 POKE 36373,72 

10 a*<i)*"m jA/vxuuiui jaime^"--^. gliigiir 

20 a*<2>*" kimiia Annua saiiiiEi \ an. 

30 fi*<3)*"M SiiitlliaSi Si 9331119 i2l &)!IllliSfa ■" 

40 a$<4>=" ^imisum mtn mmmm$° t»ms2 v " 
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45 F0RN=1T03 

50 R*INT<RND<1>*4>+1 

51 fl<N)«fi 

54 G*<N-1)*7+1 

55 PRINTTABCG)" IIIIIIIBQ ^iiliBlB! 3MI 

ii 

56 PRINT"**" 

68 PRINTTflB<0)#fl*<fl) 

61 POKE 36375, 209 :FOR2=1TO10: NEXT = POKE36875,0 

66 PRINT"H" 

70 NEXTN 

80 0ETQ*:lFQ*O ,,,, THEN138 

190 G0T045 

198 F0RN=1T03 

280 3ETQ$ = IFQ*=" "THEN280 

210 IFQ*="H"THEN258 

228 I FQ$= " H " THENGOSUB308 : GCT0248 

230 GOTO200 

240 PRINTTAB< <N-1 )*7+l ) "WMmwaWHUDGE.IIIIIIll 1 ' 

245 GOTO260 

250 PRINTTflB«N-l>»7+l >"»•■«« HOLD: III 1 1 1 IT 

260 NEXTN 

270 GOTO500 

233 END 

300 fi=INT<RNIi<l>*4) + i 

381 R<N)=R 

385 FRINTTRB<<N-1)*7+1)" 3131311 HIIMII Xlllllll MUIIM 

I! 

318 PRINTS" .: TAB< CN-1 )*7+l >f»<fl> 
320 PRINT"*' 
330 RETURN 

500 PRim"mmMM!m®\immQs r :■ 

518 IFFi(i>=fi(£)fiKBR<2)=fi(3/THENW=5 : GCi0558 

528 IFR<i)=a<2>THENW=3 

533 I FR ( 2 ) =fi ( 3 > THENW= 1 

550 PRINTW; "IP MINUS 2P " 

568 PR I NT "H FOR THIS GAME" 

563 IFW=5THENPRINT"» aVflCKPOTETT' • GOSUB3000 

565 PRINT"M(M" 

570 L-L+W: PRINT"* MONEY LEFT ,p ;L 

575 IF L>28 THEN8388 

538 IFL<8THENPRIHT ,i TT1 VOU ARE BROKE !!" : G0T0788 

600 GETQ*: IFG*0""THEN5 

518 G0T0688 

768 FRINT"3S3THRTS THE END FOR VOU" 

78 1 F0R2= 1 28T0255 = P0KE36877 , Z : FORT- 1 TO 1 8 • NEXTT , 2 

782 P0KE36877;8 

710 GETQ$:IFQ$=""THEN710 

738 RUN 

1000 PRINT'S" 

1010 PRINTS VIC FRUIT MACHINE 

1828 PRINT" 

1830 PR I NT "k THERE ARE 3 REELSM 

60 



1040 PRINT"AND EACH REEL HfiS FOUR 

1050 PRINT"3YMBQLS.H 

1060 PRINT"!il VOU CRN STOP fiLL THE 

1070 PRINT-REELS THEN EITHER HOLD 

1080 PRINT"OR NUDGE EACH ONE. Si 

1030 PRINT" ra VOU 3TRRT WITH 5P &« 

118S FRINT ,! EflCH GAME COSTS 2P. 

1110 PRINT"i*KPRE33 BAR TO CONTINUE. 

1 i20 GETA$ : IFA*=" "THEN1 120 

2S00 PRINT"T 

2019 PRINTS THE WINNING PATTERNS*] 

2020 PRINT" ARE: W 

2030 PRINT"k SAME SAME SAME*5PW 
2040 PRINT" SAME SAME ANY =3PM 
ANY SAME SAME=lPjS 
THE CONTROL KEYS ARE: 
RNV-3T0P REELSM 
H=NUDGEM 
H=HOLD» 
ANY=SPIN AGAINM 
PRESS BAR TO PLAY" 
'THEN2120 




CONGRATULATIONS" :PRINT"M«tGU'VE BROKEN THE BANK" : PR I NT "WW I'M 



2050 PRINT' 
2060 PR I NT" E8 
2070 PR I NT "k 
2080 PRINT" 
2090 PRINT" 
2108 PRINT" 
2110 PRINT"3 
2128 GETA$:IFA*»"' 
2130 RETURN 

7999 END 

8000 PRINrniSKB 
OUT OF MONEY 
8081 PQKE36878,15 
8002 P0KE36879,24 

8805 PRINT"M»30RRV; THATS THE END" 

8010 F0RN*1T012 

8015 READA--P0KE36875.A 

8820 FGRZ=lTOi50-NEXTZ 

8030 NEXTN 

8040 DATA135.- 147, 135, 175, 175, 163, 183, 183, 191, 135, 135, 135,27 

8100 RESTORE 

8110 F0RN=1T013 

8115 READA:P0KE36876,A 

8120 FORZ=1TO150:NEXTZ 

8130 NEXTN 

8135 PRINT"3" 

8140 POKE36875,0 

8156 END 



61 



9060 PCKE36878,18 


3031 


FORZ=1TO10 


3382 


PCKE36873..74 


3010 


FGRM=280TG228+Z 


3028 


F0KE3S876,M 


SS30 


NEXTM,Z 


3035 


P0KE36876,8 


9036 


P0KE36S79,72 


3040 


RETURN 


3508 






9510 REM 


9520 


REM M.KENDRLL 


9530 


REM 


3548 REM (O 1982 


9550 REM 


9568 


REM 



Dr Watson and Dr Audio 

This is a pair of simple programs, in which the VIC thinks of a number between one and a hun- 
dred, and challenges you to guess it. In 'Dr Watson', the feedback is words, and it is pretty easy 
to guess the number. 'Dr Audio', by contrast, uses a tone to let you know how close you are to 
the correct number. Once you've played about five games, you'll probably be quite pleased to 
see how good you become at interpreting the sounds. 

Dr Watson 

5 REM DR WATSON 

6 C-1:PRINT"3" 

10 PRINT" I AM THINKING OF fl NUMBER BETWEEN ONE AND 180" 

30 fl*INT<RND<l)*100)+l 

40 PRINT"WHAT IS IT"; 

45 INPUT B 

58 OC+1 

55 REM "WRONG" IN RED 

60 IFBOfl THEN PRINT"N0,!U" JB; "3IS3I WRONGS" 

65 IFB^A THEN 120 

67 PR I NT " GUESS " J C;" IS "; 

78 IFB<A THEN PR I NT "WOO LOWS" : REM GREEN, BLUE 

88 IFB>A THEN PRINFUTOO HIGHS": REM PURPLE, BLUE 

90 IF C<10 THEN 45 

108 PRINT: PRINT"! SEND OF THE GAME!" 

110 PRINT"!!tt WRS THINKING OF";A:GOTO170 

120 PRIHT"VES, VOU ARE RIGHT!" 

130 PRINT 

140 PRINT"SI WAS STHINKING" ,"0F";A 

150 PRINT 

1 60 PR I NT' I T TOOK VOU " j C , " GUESSES 1 ' 

178 FORJ=1TO2080: NEMTJ 

180 RUN 
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Dr Audio 



asm WRONGS 



5 REM DR AUDIO 

6 C-i 

7 P0KE36878,7 

10 PRINT" I RM THINKING OF fl 
30 fl-INT(RNDa> + 100) + i 
40 PR I NT "' WHAT IS IT"; 
45 INPUT E 
30 C-C+l 

55 REM "WRONG" IN RED 
60 IFBOR THEN PRINT ,! NO,H";B; 
65 IFB-fl THEN 128 

67 PR I NT " GUESS "iC/ 1 IS "; 

78 POKE 36875, ABS<A-B>+12S 

80 FORT-1TO700:NEKTT 

85 POKE 36875,0 

90 IF C<30 THEN 45 

100 PRINTS PRINT"! SEND OF THE GAMES" 

110 PR I NT "HI WAS THINKING OF" J A : GOTO 170 

120 PR I NT "YES, VOU ARE RIGHT!" 

130 PRINT 

140 PR I NT "31 WAS 3TH INKING" ,"0F";A 

150 PRINT 

160 PRINT" IT TOOK VOU" ;C /'GUESSES" 

170 FORJ"1TO2000 : NEXT J 

180 RUN 



NUMBER BETWEEN ONE 



AND 100" 



/ 
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Tight Squeeze 



This program is fun to play, especially for younger children. The VIC selects two numbers be- 
tween one and 1 3, tells you how much money you have, and asks you to bet on the likelihood of 
the third number lying between the two numbers generated. If you are correct, and the third 
number does lie between the first two, you win double the amount you 'invested'. If you are 
wrong, you lose the amount. So long as you have money, you'll be offered new rounds of the 
game. You start with $20, and you can bet any or all of the money you have in hand. 

Structure of the program: 

Line 20: Sets your starting stake to $ 20. 

Lines 30 to 40: Generate the first two numbers. 

Line 50: Checks to see that the two numbers are further apart than one. If they are not, the 
VIC is sent back to lines 30 to 40 to try again. 

Line 60: Generates the third number, which is not shown to the player at this stage. 

Line 70: Checks that the third number is not equal to either of the first two. If it is, the com- 
puter returns to line 60 to get another one. 

Lines 80 to 1 37: Print out the money the player has, the two numbers the VIC has chosen and 
asks the player to enter her bet. 

Lines 1 50 to 1 70: Accept the bet (1 50), return for a new bet if the player tries to bet more 
than she has (1 60) and responds (very colourfully) with COWARD!! if the bet is less than 
one dollar. 

Line 1 80: A delay loop before the VIC reveals its third number. 

Lines 1 90 to 260: Reveals the third number (1 90), jumps to the end if bet was less than one 
(200), 
jumps to the lose routine if third number outside the first two (210), congratulates player and 
increments money (220 to 240), consoles player and takes money away (lines 250 and 
260). 

Line 270: Checks to see if money is above $ 1 after the last round, and if it is not, sends the 
VIC to the bankruptcy routine starting at 3 1 0. 

Line 280: Delay loop to allow player to absorb the result of the round. 

Lines 290 to 300: This is an attractive visual routine which you may want to use in other pro- 
grams. Line 290 PRINTs a line, and lines 292 and 298 select a spot on the screen and a 
colour at random and POKEs into the display file at this location with this colour. There is a 
very short pause (line 299), and loop is run again. The PRINT in line 290 means the screen 
scrolls up as the coloured blips appear. 

Lines 305: Starts another round of the game. 

Lines 310: to 330: This is the end of game routine which prints THE GAME IS OVER!! then an 
endless series of YOU ARE BROKE messages. 

Suggestions for improvement: 

• Use as GETA$ routine in place of line 1 50, with a counter to force the player to decide quick- 
ly, with a momentary penalty if the decision is not made in time. 

• Add a fanfare for a win, and a raspberry noise for a loss, with a super raspberry for bank- 
ruptcy. 
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• Add some 'chirping birds' (see the VIC manual) during the colourful interlude between rounds 
of the game. 

• Make the amount of the win and loss change randomly from round to round, telling the player 
before she makes her bet how much a win and a loss is worth. 



19 REM TIGHT SQUEEZE 

20 B^20 

25 PR I NT "3": REM CLEAR SCREEN 

30 fl-INT<RND<i)#13)+l 

46 B-INT<RNDa>*13>+l 

m IF AB3<B-AX2 THEN 30 

6G OINT<RNDU>*13>+i 

7© IFfi-C OR E-C THEN 69 

80 PRINTMIV FIRST NUMBER IS";fl 

90 PR I NT "Si MV SECOND IS'MB 

100 PRINT 

120 PRINT'-IWOU HAVE **";D; ,: i" 

125 PRINT 

130 PR I NT "HOW MUCH BO YOU BET" 

135 PRIHT'-'MV NEXT NUMBER LIES" 

1 37 PR I NT ,: BETWEEN " i A ;. " AND " ; B ; 

150 INPUT E 

160 IFE>D THEN 150 

170 IFE<1 THEN PRINT"!ClJO*WKSRSIDaH ! " 

130 F0RZ=1T0999:NEXTZ 

190 PRINT"3-1V NUMBER IS";C 

200 IF E<1 THEN 230 

210 IF NOT <OR AND C<B OR C<A AND OB) THEN 250 

220 PR I NT "WELL DONE" 

225 PRINT'kVOU WIN $%2*E 

230 D~D+2*E 

240 GOTO 280 

250 PRINT"iSS0RRV; VOU LOSE $";E;"8" 

260 D-D-E 

270 IF D<1 THEN 310 

280 FORZ=1TO2000 ; NEKTZ 

290 F0RZ=1T024: PRINT 

292 L^INT<RND<1)*500)+1 

294 C*INT<RNDa>#8)+i 

296 POKE 7680 + L, 160 

298 POKE 38400+L.C 

299 FORX=1TO50:NEXTX 
308 NEXTZ 

305 G0T025 

310 PR I NT "THE GAME IS MOVER!!!" 

320 PRINT" WOU ARE BROKE "; 

325 F0RZ=1T0999: NEXTZ 

330 GOTO320 
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Time Guardian 



In this challenging game written by Adam Burbidge of Crawley you have to recover the six 
parts of the key of time. The ship starts with 700 energy points, and you lose five points for 
each move. 

When you first run it, you'll see the message I AM CREATING A GALAXY while the VIC sets 
up the universe for your game. After a brief delay, the screen will clear, and it is Decision Time. 
Every so often the VIC will ask you to set co-ordinates, and then it will print: 



QUADRANT? 
SECTOR? 



You enter a number from to 6 

You enter another number from to 6 



This is repeated. Then it will print: 

TIME? You enter either© or 1 

If you land on a hostile planet, the VIC will print SHIP UNDER ATTACK, then SHIP ENER- 
GY . . . and a number. You need to press any key (which you may have to do several times 
rapidly) to escape from the hostile planet. 

From time to time you'll find part of the 'key of Chronos', the point of the whole game. You 
must find all six parts of it to win, and you must find them before your ship's energy is ex- 
hausted. 

3 REM TIME GUARD I AN 

4 REM BY RDRM BURBIDGE 

5 DIMK!«4>,Z$a>,flJ'X6,6,6 J l> 

6 KJi(3)=70Q:F=75 
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10 PR I NT "T: REM CLEAR SCREEN 

20 PRINT" SWI AM CREATING A GALAXY" 

38 B=INT<RNDU>*6> 

40 C=INT<RNDa>*6) 

50 D=INT<RND<1>*6> 

60 E=INT<RND<1>*2> 

70 a:'XB,c,d,e:<=2 

75 f=f-1 : iff<0 then 85 

80 GOTO30 

85 PRINT'T]": REM CLEAR SCREEN 

90 GN=INT(RND<1)*2)+1 

100 PRINT" SB^OU START AT GLODNOB" 

105 PRINT 

110 PR I NT "QUADRANT 5" 

115 PRINT 
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120 PRINT"lSECTOR 3,4" 

125 PRINT 

130 PRINT"!MrnME"GH*1000"EflRTH VEAR8" 

135 PRINT 

140 PRINT"SISET CO-ORDINATES" 

150 INPUT"QUADRANT";G 

160 INPUT"SECTOR";H 

165 PRINT"!*" 

170 INPUT"SECTOR";l 

180 INPUT"TIME";J 

185 K*<3>=K?J<3>-5 

190 IFAJ«G,H,I,J>=1 THEN PRINT"S& , OU ARE ON GLODNOB" ^GOTOSO 

200 IFAJKG,H,LJ»1 THEN 300 

210 PRINT"kDEEP SPACE" 'GOTO 140 

300 PRINT"iVOU ARE ON A PLANET" 

318 PRINT" SBQUADRAUT"G 

320 PRINT"iSECTOR"H,I 

330 PRINT"BriME"J*INKRNDa>*7> 

340 KJK1)*INT <RND<1)#20)+1 

350 IFKX<1)>5 THEN 370 

360 PRINT"$UNiINfiHASBIOTED" =GOTO140 

370 IFK?i<l»10 THEN 400 

380 PRINT"!!«INHABITANTS HOSTILE" :GOTO500 

400 PRINT" SBFART OF THE KEV OF'V'!* CHRONOS " 

410 KK<2>=KK<2>+1 

420 PRINT"VOU NOW HAVE "KJK 2 >" PARTS", "OF THE 3M<EV" 

430 IFK7«2>=6 THEN PRINT"WQU HAVE WON!": END 

440 GOTO 140 

500 GET Z*<1> 

510 IF Z*a>=""THEN548 

520 GOTO140 

540 PRINT"iSSHIP UNDER HATTACK!" 

550 KK(3)*K?i<3>-INT<RND<l)*50)+l 

560 PRINT"aSHIP ENERGY "KK3 

565 IFKJiOXl THEN PRINT-'SHSHIP ^DESTROYED" =END 

570 FORT* 1TO200: NEXT 

580 GOTO500 

Long John Silver 

This is a very simple program which you can use as the core of any program when you want to 
hide something on a grid. In this case the grid is 1 x 10, and after each guess you are given 
feedback as to where the gold is hidden. 

Structure of the program: 

Lines 1 and 20: 'Hide' the gold. 

Line 30: Loop to count guesses 

Line 60: Accepts player guess, strips it to two numbers to 'process' it. 

Lines 1 30 to 1 90: Feedback on the accuracy of the guess. 

Lines 2 1 to 220: End of game if not guessed. 

Lines 230 to 260: End if the treasure is found. 
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Suggestions for improvement: 

• Change the size and shape (triangular?) of the grid. 

• Add some ambiguity to the feedback. 

• Use sound for the feedback (high notes for close, low notes for far away). 

• Add a sound routine to the win routine. 



3 15 

s print:]" ' 

10 fl=INT<RNDa>*10)+l 

29 B=INT<RND<1>*10>+1 

30 FORZ=1TO10 

35 PRINT'li": PRINT 

40 PRINT"Y0U HAVE ONLY" 

45 PRINT10-Z; "^SECONDS LEFT!" 

50 PRINT"iftiHERE IS THE GOLD"; 

60 INFUTM : i>INT<M/10> : D=M~C*10 

70 IFfl=C AND B=D THEN 230 

130 PRINT: PRINT" IT IS NOT fiT";C;D 

135 PRINT 

140 PRINT"HERE IS fl CLUE-" 

150 PRINT"URY TO THE "J 

160 IF fl>C THEN PRINT"i*S0UTH!1' ! J 

170 IF fl<C THEN PRINT"aNORTH!B"; 

ISO IF B<D THEN PRINT" IWEST5T 

190 IF B>D THEN PRINT" CflSTSI" 

200 NEXTZ 

210 PRINT -PRINT-WTIME IS UP" 

21S,PRINT"SITHE GOLD WAS AT";fl;B 

220 END 

230 PRINT"WneiLBL HDiffliftlE 91! ! " 

240 S= RND<1)*10000 

245 PRINT"fil" 

250 PRINT"Y0U FOUND £MNT<S/Z>; 

255 F0RT«1T0555=NEKTT 

260 GOTO 250 
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Robot Nim 



The VIC prints a number of odd triangle shapes, tells you how many you can take, then takes 
a few of the shapes itself. This fascinating process continues until there is only one left. At this 
point the player who must take the last one loses. 



Structure of the program: 

Line 20: Determines the number of objects. 

Line 50: Determines the maximum number to be taken. 

Lines 1 00 to 1 30: Print out the correct number of triangles, starting new lines at random (see 

line 120). 
Lines 21 to 21 5: Determine how many the 'robot' will take. The random bit at the end of line 

210 ensures that the robot makes mistakes from time to time. Line 215 ensures that the 

mistake is not so large that the robot breaks the rules. 
Lines 280 to 290: Place a coloured border between rounds of the game. Design this to suit 

yourself. 

18 REM ROBOT NIM 

20 M=0:E=0:Z=16+INT<RNIKD*S> 

30 PRINT-STREP! CLEAR SCREEN 

40 IF2*INT<Z/2>=Z THENZ=Z+1 

50 H=3+INT(RND'::i)*2) 

60 PRINT"!mflXIMUM TO TflKE"H 

70 GOSUB230 

80 IF E>0 THEN PRINT"Sr'OiJ T00K"E, "^ROBOT T00K"Q 

90 PRINT'li" 

100 PRINT"!" =F0RK=1T0Z 

110 PRINTK;"r'\; 



leC 







IF RNDa»@.S THEN PRINT 
130 NEKTK 
140 GOSUB280 

145 PRINT"iHOW MflNV WILL"," YOU TAKE"; 
150 INPUTE 
160 IF £>H THEN 150 
170 Z~Z-E 
180 GOSUB280 

190 IF Z<1 THEN PRINTWOU TOOK THE LfiST ONEVIM SO ROBOT WINS!! 
210 Q=Z-l-INT<<Z-l)/<H+l>>#(H+l)-INT<RNDa>*2)+INT<RND<l)*25 
215 IF Q<1 OR Q>H THEN 210 
220 GOSUB280 
230 Z=Z-Q 

240 IFZ=0 THEN PRINT"kR0B0T TOOKST'Q, ,, "ISO VOU fiHUIN! i " -END 
270 GOTO60 
280 PRINT 

235 PRINT"!»#k.###fWt#i»##!*t#iltt##I!»#a»##«»#" 
290 RETURN 

iMBkBk&kBMBk&MBkBMB* 



:END 



BLK \/AHT\/ RED\/cyN \J PUR \/ GRN \/ BLU\/ VEL 



'RVS \ /RVS' 
ON V OFF 



ifflVcmvBB 



CTRL 
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Night on a Wild Mountain 

This program is perhaps best saved for those people who say: "It's very nice having a per- 
sonal computer, but what can you do with it?" Once having seen (and heard) this program, they 
may well be convinced that perhaps they should not have asked. The music is wild and random, 
as befits the title, although the graphics have symmetry and order. Enter this program just as it 
is listed here, then try and work on it to bring some order into the music. 

5 PRINTM" 

18 REM NIGHT ON A WILD MOUNTAIN 
12 REM (RANDOM MUSIC, PATTERNS) 
15 M=INT<RND<D*8> 
26 A=INKRNDa>*18> 
30 B=INT<RND<1>#18> 
40 C=79U 
50 D=38631 

60 POKEC+A, 182 = PQKED+A, M 
70 POKEC-A, 102 : POKED-A, M 
88 POKEC+1 1*A+B, 102 : POKED+1 1*A+B, M 
90 P0KEC-11*A-B, 102:POKED-11*A-B,M 
97 IF RND<1»0.3 THEN 120 

100 P0KE36879, 16*<INT<RND<l)*16))+INT<RND<l)*8)+8 
120 P0KE36878,INT<RNDa>*15)+l 
130 P0KE36874, INT<RND<1>*128>+128 
140 P0KE36875, INT<RND<1>#128>+128 
158 P0KE36S76, INKRND<1>*128>+128 
180 P0KE36877, INT<RND<1>*128>+128 
195 IFRND<1».1 THEN205 
200 POKE36678,0 
285 IFRND<1».3 THEN215 
210 POKE36874.0 
215 IFRND<1)>.3 THEN230 
220 POKE36875.0 
230 FORT=1TORND<1)*20 +5= NEXT 
235 IFRND<1».3 THEN250 
240 POKE36877.0 
250 POKE36876.0 
500 GOTO10 
\ 



Victim 



This game is simplicity itself. You choose your 'victim', a number from one to six, and then sit 
back and watch the VICtim race get underway. 

Lines 1 5 and 55 are interesting. They allow the VIC to assign a different colour to each num- 
ber, but the same colour to each number when it is printed. You'll see what I mean when you run 
it. The sound routine, starting at line 1 000, may well benefit from your programming skills. 
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5 P0KE36879,8 

10 REM VICTIM 

12 PRINT"T: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT 

15 fl$«"%8l«W" 

20 PRINT " NAME YOUR VICTIM'S,,, ,, ,"!* <1 TO 6>"; 

30 INPUTW 

35 IFW<1ORW>6THEN30 

40 FORJ*1TO6:B<J>=0:NEXT 

50 PRINT":]": REM CLEAR SCREEN 

52 PRINT"*': REM HOME 

54 F0RM*1T06 

55 C*=MID*<fl*,M,l> 

60 PRINT TflB<B<M>>;C$ ;M 

€5 GOSUB1000 

70 PRINT 

88 B<M)=B<MHINT<RND<l)+.5) 

90 IFB<M»13THEN120 

100 NEXT 

110 G0T052 

120 F0RZ*MT08 

130 PRINT 
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140 NEXT 

159 PRINT" M END OF RACE 

160 PRINT 

170 PRINT" SSTHE WINNER IS"M 

180 IFW=MTHENPRINT"BflND VOU BACKED IT! ! " : PRINT" WELL DONE" 

185 PRINT 

190 IFWOMTHENPRINT"! BUT VOU BACKED "IMPRINT: PR I NT'S BAD LUCK" 

200 PRINT 

210 FORJ»1TO800 : NEXT 

220 PRINT" PRESS ANV KEY TO" 

230 PRINT"!* START" 

240 PRINT'S A NEW RACE" 

250 GETV* 

260 IFV*=""THEN250 

270 RUN 

1000 P0KE36878.15 

1818 F0RQ«1T0 A<M> 

1020 P0KE36876, 180+INT<RNDa>*60> 

1030 NEXTQ 

1040 POKE36878.0 

1070 RETURN 



Evolution 



In 1 970, John Conway, who was then attending Cambridge University, invented the game of 
LIFE, which rapidly became a computer 'hit' after it was described in the October 1 970 issue of 
Scientific American. 

LIFE, which simulates the birth, growth and death of a cell colony, produces rather splendid 
visual effects. 

Mr. Conway's rules are simple, but produce unpredictably interesting results. The cells in LIFE 
are born, live or die in accord with the dictates laid down by the God Conway. According to his 
writ, each cell has eight neighbours; every cell with two or three neighbours survives to the next 
generation; if there are three, and only three, neighbouring cells, a new cell is born; and any cell 
with four or more neighbours dies from overpopulation. 

EVOLUTION is a version of LIFE written especially for the VIC. Setting up a black screen with 
a red border, the program puts cells on a 1 4 x 14 grid in accordance with the Conway rules. 
The game as listed is silent, but if you'd like to add a little sound — which tells you how things 
are going in the program— add the following lines: 



6 POKE 36878,7 

225 POKE 36876, 240.POKE 36876,0 

1075 POKE 36876, 235:POKE 36876,0 
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Structure of the program: 

Line 1 0: Dimensions the arrays to hold the cells as they evolve. 

Lines 20 to 80: Generate the first 'evolution' of the colony, creating a cell in line 1 5 if the ran- 
dom number generated is greater than 0.5. The elements of the two arrays are set equal to 
each other in line 60. 

Line 90: Sends the action to the subroutine which prints out the evolving colony. 

Line 95: Increments the evolutionary count. 

Lines 1 00 to 200: Count the number of occupied cells around each cell in the colony. 

Lines 210 and 220: Alter the element in the B array in accordance with the findings of lines 
1 00 to 

200. Note that the A array is unchanged at this time, so a change due for the next evolution 
will not interfere with the current evolution being studied. 
Line 250: Do it again, VIC 
Line 1 000 to 1 090: This routine prints out the colony, updating the A array as it does so. 

Suggestions for improvements: 

• Change the size of the grid . 

• Ensure that each cell is printed in a randomly chosen colour. 

• Have each element of the colony give up a little bleep or blurp, depending on whether the ele- 
ment is occupied by a cell or not. 

• Add a routine to take the place of lines 20 to 80 to allow you to enter your own starting col- 
ony. 

• Add a routine (as part of the PRINT subroutine) to count the number of occupied cells, which 
will automatically RUN the program from the beginning if the number drops below, say, five. 
This rerun could select a new border and/or screen colour. 



SCREEN 



5 REM EVOLUTION 

7 PRINT"3":REM CLEAR 

8 PRINT" SB" 

9 POKE 36879, 10: REM RED BORDER, BLACK SCREEN 

10 BiriAa4,14?,E<14,i4> 
29 F0RX*2 TO 13 

38 F0RV^2 TO 13 

50 IF RND<1»0.5 THEN A<X,Y>~1 

60 E«,Y>=A':X,V> 

70 NEXTY 

88 NEXTX 

90 GOSUB1000 

95 G=G+1 ' 

100 F0RX»2T013 

110 F0RY=2T013 

120 O0 

130 IF AO-M,Y-l> = i THEN OC+1 

148 IF fl<X-l,Y>«l THEN OC+i 

150 IFA<K-l,Y+l)=i THEN C=C+1 

168 IFA<X,Y-1)-1 THEN OC+1 

170 IFA<X,Y+1)-1 THEN OC+1 

180 IFAO:+l,Y-i>=l THEN OC+1 

198 IFR<X+1,Y>-1 THEN OC+1 

200 IFA<X+1,Y+1>=1 THEN OC+1 

218 IFfl<XiY)»l AND C02 AND COS THEN B<X,V>~ 



iv««.urt«*i » 



• • * 



74 



WHT\/ RED 



PUR\/GRN\/ BLU\/ YEL 



229 IF FKX,V)-6 AND C=3 THEN B<X,V^1 

230 NEXTV 
248 NEXTX 
250 GOTO90 
99? END 

1090 PRINT"*": REM HOME 

1003 PRINT: PRINT" EVOLUTION »";G; "H" :REM WHITE, VELLOW 

1005 PRINT 

1010 F0RX=1T014 

1020 F0RV=1T014 

1030 A<X,V>=B<X,V> 

1040 IFfi<X,V>=l THEN PRINT"*"; 

1050 IFfl<X,V)=-0 THEN PRINT" "; 

1060 NEXTV 

1070 PRINT 

1080 NEXTX 

1090 RETURN 



Vic-et-un 



In this program you and the VIC (with thunderstorms, lightning bolts and other distractions) 
take it in turns to roll a dice trying to get a total as close as possible to -or equal to— 2 1 , without 
going over 21 . This game is a dice version of Blackjack. 

It is very simple to play. After pressing RUN, you'll be told to touch the "Z" key to roll the 
dice, the "M" key to stand, that is, to stay with the total you now have. Your total will appear, 
and the choice to roll or stand again. Once you've decided to stand, the VIC will start to roll, and 
will— in two games out of three, on average— beat you. 

Structure of the program: 

Line 1 0: Sets the counter for the human (H) and computer (C) scores. 

Line 20: Sends action to the wild and crazy subroutine which selects colours and sounds ran- 
domly. 

Lines 30 to 80: Accepts and acts on the player's decisions. 

Lines 90 to 1 30: Computer decides whether to add to its total or stand. 

Lines 1 40 to 250: Decides who has won, creates some more mayhem, starts a new game. 

Line 260: Delay loop, called various times during the program. 

Line 990: Assigns A$. 

Lines from 1 000: Selects an element from A$ to change the colour, then does some quite ex- 
citing things with the colour and sound. 

5 REM VIC-ET-UN 

7 PRINT'TT^REM CLEAR SCREEN 

10 H=0:C*0 
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29 GOSUB990 

38 PRINTB*; " ENTER 2 TO ROLL" = GQ8UB1000 : PRINTB*; " 

35 GETM$:IFM$*""THEN35 

40 IFM*<="M"THEN90 

50 H=H+INT<RND<1)*6>+1 

60 GOSUB260: GOSUB 1000 

70 PRINT :PRINTB$;" VOUR TOTAL IS"H 

75 GOSUB260 : GOSUB260 : PR I NT 

80 GOTO30 

90 IFOH AND C<22 OR C>21 OR H>21 0RH=21 ANDC=21THEN 140 

100 C=C+INT<RND<1)#6)+1 

110 GOSUB260 

115 PRINT: PRINT 

126 GOSUB1000-PRINTB$;" MY TOTAL IS"C 

130 G0T090 

140 GOSUB 1060: PRINTED 

1 50 GOSUB2S0 : GOSUB 1 000 : G0SUB260 

170 IFH»C0R(H>21RNDC>21 )THEN24* 

175 PRINT -PRINT: PRINTS*; 

180 IF<C>H 0RH>21)ANDC<22 THENPRINT, "I"; 

190 IF<C<H0RC>21)ANDH<:22THENPRINT, "YOU"; 

200 GOSUB 1 000 : PR I NTB* ," W I N ! ! " 

210 G0SUB260 

220 GOSUB 1008 

225 FOR J= 1 T07 : G0SUB260 : NEXT 

226 GOSUB 1000 
230 PR I NT "J: RUN 

248 GOSUB 1080: PRINTS*.; "DEAD HEAT, BUDDY'" 

258 G0T0225 

260 FORE=1TO500:NEXT 

270 RETURN 

990 A$-"fiagfc, r »" 

1000 B$=MID$CA$, <INT<RNDa)*7HD, D 



M TO STAND" 
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1010 FORJ'iTOINT<RND(l)*10)+l 

1020 P0KE36378, INT<RND<l)*10>+6 

1030 F0RK=1T0INT<RND(1 >*7H2 

1040 P0KE36876, K+180-INT<RND< 1 >*39) 

1050 NEKTK,J 

1070 P0KE36879, INT<RND< 1 >*3>+28 : P0KE36879, 8 

1075 P0KE36879.. INKRNB<l>*3>+28 

1080 P0KE36879, INT(RND(l>#3>+28 

1090 P0KE36873.Q 

1106 RETURN 



Hangman 



This game needs two players, one to enter a word of her choice and the other player to at- 
tempt to guess the word. The VIC draws a dash for each letter, and then changes this into any 
letter which has been guessed correctly. 

Structure of the program: 

Line 50: Sets up arrays if needed. 

Lines 1 00 to 1 30: Accepts the secret word, a letter at a time. 

Line 135: Counts for the 1 guesses. 

Lines 1 45 to 1 70: Select colours at random using the subroutine from 901 0, prints the letter if 

it has been guessed, if not prints a dash. 
Lines 2 1 to 260: Accepts a guess and compares it, letter for letter with the secret word. 
Line 270: Sends control to winning message if word is guessed. 
Line 300 to 330, then from 1 045: Losing message, reveals word. 
Lines 1 055 to 1 1 00: Offer new game. If not accepted rePRINTs OK, THANKS FOR PLAYING 

in different colours, over and over again. 
Routine from 5000: Adds some sound to brighten things up. 
Routine from 9000: Assigns the colour controls to string A$, and then when subsequently 

called (as GOSUB 9010) changes the next thing to be printed to a random colour. This 

subroutine also calls the sound subroutine, then flashes (line 9025) giving the border a 

random colour. 

Suggestions for improvement: 

• Get the program to draw a hanged man, part by part, as the number of guesses is used up. 

• Store a number of words in a DATA statement, so the VIC can choose its own words. 

• Note that the random colour choice, the sound routine from 5000 and the random border 
flash are all effective aids to add to your own programs to brighten them up. 



10 REM HANGMAN 

20 PRINT"T:GOSUB9000 

30 INPUT "HOW MflNV LETTERS" ;N 

50 IFNM0 THEN DIM 8<N>,D<N> 

100 FORfl*lTON:INPUTC* 

120 B<A)=ASC<C*):D<A)=B<A> 

130 NEXT 
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135 FORJ=1TO10:PRINT"T 
140 PRINT: PRINT: PRINT 
145 F0RE=1T0N 

159 GOSUB9010:PRINTB*; 

155 IFB<E>=B<E> THEN PRINT"-".; 

160 IFB<E)OD<E)THEN PRINT CHR$<B<E>>; 
170 NEXTE 

180 PRINT: PRINT 

190 H=0 

200 GOSUB9010: PRINTED.: "ENTER GUESS NO. "J 

210 INPUTC* 

220 F=ASC<C*> 

230 FORG=1TON 

240 IFD<G>=F THEN D<G>=0 

250 IFD<G)=0THEN H=H+1 

260 NEXTG 

270 IFH=NTHEN 1000 

280 NEXT J 

290 PRINT 

300 GOSUB9010:PRINT"SORRV, TIME IS UP" 

310 PRINT 

320 GOSUB9010-PRINTB*;"THE WORD-WAS "; 

330 GOTO1045 

1000 REM WIN 

1810 PRINT 

1020 GOSUB9010:PRINTB$;"VOU GOT IT IN" J 

1040 PRINT 

1045 FORQ*=lTON:PRINTCHR*<B<Q>>; :NEXT 

1050 PRINT 

1055 GOSUB9010:PRINTB$;"aRNOTHER GAME"; 

1060 INPUTC* 

1070 IFASC<C*>=A8C<"V">THEN RUN 

1080 GOSUB9010:PRINTB*;"aOK, THANKS FOR" 

1 090 GOSUB90 1 : PR I NTB* , " SPLRV I NG ! " 

1095 FORT=1TO300=NEXT 

1097 PRINT 

1100 GOTO 1086 

5000 REM SOUND 

5010 P0KE36878,INT<RND<l>*8>+8 

5020 FORT-1TO100STEP(INT<RND<1)*8)+1) 

5030 P0KE36876, 240-T 

5040 P0KE36377,T 

5060 NEXT 

5070 POKE36876..0 

5080 POKE36877..0 

5090 RETURN 

8990 END 

90O0 A$="if!k»Bn" 

9018 B$=MID$<A*,aHT<RNDa)*7>+n, 1) 

9020 GOSUB5000 

9025 P0KE36879 , 1 NT ( RHD < 1 ) *6 > +26 

9030 RETURN 
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Codebreaker 



The game Mastermind is copyright Invicta, who sell a number of versions of the game which 
use coloured pegs. Invicta bought the rights to the game from an amateur mathematician, 
Mordechai Meirovich, in 1 971 , and a couple of years after they first marketed it, had a world- 
wide best selling game. 

The game has been known in England for centuries as Bulls and Cows. Another popular ver- 
sion is called Codebreaker. 

The principle is simple. The VIC20 picks a three-digit code (such as 259), using the number 1 
to 9. Zero is not used, and no digit is used more than once in the code (so 1 1 7, 494 or 666 are 
impossible). You have to guess the number in 1 guesses or less. The feedback from your VIC is 
fairly easy to interpret. After each guess you are told YOU SCORED 2 BLACKS and WHITES, 
in which a 'black' is a correct digit in the correct place in the three-digit code, and a white is a 
digit which does appear in the code, but not where you put it in your guess. The computer prints 
out the answer if you fail to get it within 1 guesses. 

Structure of the program: 

Lines 30 to 50: Generate three random numbers between one and nine. 

Line 60: Checks to ensure all numbers are different. If they are not, sends VIC back to the 
routine 30 to 50 again to create three more. 

Line 70: * Turns the three separate digits into one three-digit number. 

Lines 80 and 330: Control the 'guess loop'. 

Line 90: Prints number of the guess. 

Line 95: Accepts the player's guess. 

Lines 1 00 to 1 20: Splits the player's guess into three separate digits so they can be compared, 
item by item, with the computer's numbers. 

Line 1 30: Compares the two three-digit numbers. If they are the same (i.e. if D equals X) then 
the VIC goes to the win routine starting at line 360. 

Line 1 50: Sets the counters for black (N) and white (W) to zero. 

Lines 1 70 to 2 1 0: Looks for blacks. If it finds one (that is, if it finds a correct digit in a correct 
position) it increments N by one (lines 1 90) and changes that element of the original num- 
ber (A(1 ), A(2) or A(3)) to a zero, so it will not be rechecked in the 'white routine'. 

Lines 220 to 280: Check for 'whites', incrementing W by one each time one is found. 

Line 290: Reconstructs the computer's number from D, restoring elements turned to zero in 
line 200. 

Lines 320 to 325: Print out the player's score. 

Lines 340 to 350: This is only used if the player is unable to guess the code in 1 ©guesses. 

Lines 360 to 380: This is the win routine. 

Suggestions for improvement: 

• Reduce the number of guesses once you've mastered the game (six is a good number). 

• Change the game so it selects colours, using a numerical code to (a) print blobs of colour, and 
(b) to accept player input. 

• Add sound so a particular effect comes each time the player gets a black, with another effect 
for a white. 

• Add a wild, flashing, noisy end if the player guesses the code correctly. 
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10 PR I NT "T 

30 F0RZ-1T03 

48 FKZ>-INT<RNIK1)#9) + 1 

39 NEXTZ 

60 IFfla>*fl<2>QR Ra>=FK3>0R R<2>=R<3> THEH30 

70 D- i 00*R < i ) + 1 0*R < 2 ) +fi ( 3 ) 

SO FORC-1TO10 

38 PR I NT "GUESS :, ;CJ 

95 INPUTX 

100 E<1) = INT<V100) 

110 E '•• 2 ) * I NT < < X- 1 00*B < 1 > ) / 1 @ > 

120 B<3)*X-108*B< 1 >-10*B<2> 

130 IFB=M THEN360 

150 H-0 : W"0 

170 FOR E'l TO 3 

ISO IFfl<E)OBCE) THEN 210 

190 N-H+i 

200 FKE>*0 

210 ne::te 

220 F0RF-1T03 

230 IFR<F)^0 THEN 280 

240 FOR E*i TO 3 

250 IFB<FK>fi<E> THEN 270 

260 I4=W+1 

270 NEXTE 

280 NEXTF 

290 fla>-INT<D/100) 

300 fi<2>=INT< (B-100*R< 1 ) >/10) 

310 R<3>-D-100*fl<l>-10*R(2) 

320 PRINT-WOU 3SCOREB" 

325 PR I NT " ■ " ; N ; " BLACKS &Ei" ; U ; ! WH I TES3" 

330 NEXTC 

340 PRINT" JUV NUMBER WRS",R<1>.;R<2);R<3> 

350 END 

360 PRINT'TCONGRRTULRTIONS" 

370 PRINT'^OU GOT IT IN";C 

380 END 

Symphony for a Melancholy 
Computer 

This piece reflects an effort to write a program which would 'write music' that had some un- 
derlying form. The title is obvious and appropriate, once you've heard the comuter's output 
from this program. 

The main structure of the music comes from the variables A, B, C, D, E and F which are de- 
fined on each run. The program is designed so that the chords change with reference to a 
measure (E) and so that the changes overlap each other, thus getting rid of harsh stops and 
starts. 
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10 REM SVMPHONV FOR 

15 REM A MELANCHOLY 

16 REM COMPUTER 
18 GOSUB10O0 

20 A*128+INT<RND<1>*128> 
30 B=128+INT<RND<1>*128> 
40 C=128+INT<RNJX1>*128> 
50 D=128+INT<RND<1>*128> 
68 E=INT<RND<1)*4)+1 
70 F=2*E 
75 P0KE36878.F-1 
30 F0RH=1T05#E 
100 P0KE36874,A 
110 NEXTH 
120 F0RH=1T05*E 
130 P0KE36875,B 
140 NEXTH 
150 F0RH=1T05*E 
160 P0KE36876,C 
170 NEXTH 
188 F0RH=1T05*E 
190 P0KE36877.D 
200 NEXTH 
210 FORH=1T02*E 
220 P0KE36874.A 
230 NEXTH 
240 F0RH=1T05*E 
250 P0KE36876,C 
260 NEXTH 
500 RUN 

1000 PRINT\T:REM CLEAR 

1010 P0KE36879, 16*< INT<RND< 1 )*16> )+< INT<RND< 1 >*8> )+8 

1028 RETURN 




Symphony for a Melancholy 
Computer with Zen Show 

This is the same program as just listed, with an underplayed visual display added. 

10 REM SVMPHONV FOR 

15 REM A MELANCHOLV 

16 REM COMPUTER 

17 REM WITH ZEN SHOW 

18 GOSUB100O 

20 A=128+INT<RND<1>*128> 
38 B»128+INT<RND<1)*128) 
40 C=128+INT<RND<1)#128) 
50 D=128+INT<RND<1)*128) 
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60 E=INT<RND<1>*2>+1 

70 F=2*E 

75 P0KE36878,F-1 

90 F0RH=1T05*E 

100 P0KE36874,A 

110 NEXTH 

120 F0RH=1T05*E 

130 P0KE36875,B 

140 NEXTH 

150 F0RH*1T05*E 

160 P0KE36876.C 

170 NEXTH 

180 F0RH=1T05*E 

190 P0KE36877,D 

208 NEXTH 

210 F0RH=1T02*E 

220 P0KE36874,A 

238 NEXTH 

240 F0RH=1T05*E 

258 P0KE36876.C 

260 NEXTH 

509 RUN 

1000 PR I NT "3": REM CLEAR 

1018 P0KE36S79, 16*< INT<RND< 1 >*16> >+< INT<RND< 1 )*8) )+8 

1026 F0RJ=1T05 

1030 PRINT 

1040 NEXT 

1050 PRINT" SJBVMPHONV FOR fl MELANCHOLY COMPUTER 

1060 PRINT 

1065 F0RJ=lT0RNDa>*2@: PRINT" "; :NEXT 

1070 PRINT CHR*<119+INT<RNIK1>*15>> 

1075 FORJ*1TORND<1.>*20: PRINT" "; =NEXT 

1080 PRINT CHR$ai9+INT<RND<l>*15>> 

1085 FORJ=1TORND<1)*20: PRINT" "; =NEXT 

1090 PRINT CHR*ai9+INKRND<l>*15>> 

1095 FORJ=1TORND<1)*20: PRINT" "; :NEXT 

1100 PRINT CHR^aig+INTCRNDd^lS)) 

1110 RETURN 




Fairway 



In this game, you are on a nine hole golf course. The length of each hole varies each time you 
play the game. The program makes much use of POKEing to create the green, and move the ball. 
The sound the ball makes is particularly interesting if you overshoot the hole. 

There is no need for me to explain how the program works, as it is generously provided with 
REM statements. 
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10 REM FfllRWflV 

15 P0KE36879,28 

20 SC=0:REM SCORE 

30 flV=0=REM AVERAGE 

100 F0Rfl*lT09:REM NO. OF HOLES 

105 T=0:REMTflLLV THIS HOLE 

110 D=INT(RNDa>*7>+14:REM DISTANCE TO HOLE 

120 PRINT"T:REM CLEAR SCREEN 

125 C=8 

130 M=0 

4O0 GOSUB600O 

500 GOSUB50O0 

510 IFMOD THEN 500 

520 IFABSCM-DX2 THEN 8080 
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FROM HOLE:" 

PRINTS" <D-M>*10"VP.RDS 

PRINT" "<D-M>*10"VflRDS 



525 IFM>21 M-21 

536 GOTO500 

540 END 

5000 PRINT "SG8HOLE NUMBER "R 

5005 PRINT, D*10"VflRDS" 

5010 PRINT 

50 1 2 PR I NT " ISCORE " SC " iJTflLLV " T 

5015 IFD=M THEN 8000 

5020 PRINT"!® I STANCE 

5025 IF D-M=>10 THEN 

5026 IF D-M< 10 THEN 
5030 PR I NT "i" 
5040 INPUT"WHICH CLUB";C 
5042 T«T+1 

5044 GOSUB7000 

5045 POKE38730+M, 1 
5047 IFM>D THENC=-C 

5060 M» INT<M+C/3*RND(1+D) WHICH 
5065 C=0 

5070 PQKE8010+M,81 
5080 POKE38730+M.2 

RETURN 

ENB 

REM DRRW GREEN 

FORGN8032TO8119 

POKEQ, 102 

POKEQ+38752-8032,5 

NEXT Q 

POKE8032+D, 74 : POKE8033+D, 75 

P0KE38752+D , 2 : P0KE38753+D , 2 

POKE8010+M..81 

POKE38730+M,2 

RETURN 

FORW=123TO180+3#M 

P0KE36878, 15 

P0KE36875..W 

P0KE36874..W 

NEXTW 

POKE36875,0 

POKE36374..0 

RETURN 

T-T-l 

POKE36876,220 

F0RP=1T05:NEXT 

P0KE36876, = P0KE36376, 225 = P0KE36876, 8 

PRINT"VOU GOT IT IN"T 



5090 
5999 
6000 
6010 
6020 
6030 
6040 
6050 

eoeo 

6065 
6Q7Q 

6180 

7000 

7005 
7020 
7030 
7040 
7050 
7060 
7500 

3000 

8002 
3003 
8004 
8010 
8020 
8030 
8040 
3050 
8060 
8062 
8065 





POKES010+M, 1 

POKE8032+M.81 

P0KE38774+M,2 

POKES033+M, 102 

P0KE38775+M.5 

SC*SC+T 

PR I NT " Ifl VERflGE " I NT < SC/R+ . 



5) 
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8870 "FORH= 1 TO5000 •' NEXT 
8990 NEXTA 
9089 END 




Jelly Bean Space Swarm 

In Adam Burbidge's program, you are the navigator on a starship. Suddenly you find yourself 
embroiled in an asteroid storm. Only you can Save The Ship From Destruction. 

You are the purple checkerboard in the left hand corner of the screen. As you'll see when you 
run it, the asteroids appear at different points. By using your two controls (4-left, 6-right) you 
have to steer out of the way of the asteroids (which look somewhat like jellybeans, hence the ti- 
tle). The pressure increases as the game continues. The number of asteroids increases, and their 
colour changes. 



1 REM JELLYBEAN SPACE SWARM 

2 REM BY ADAM BURBIDGE 

3 REM STANDARD MEMORY ONLY 

4 SC=0:HS=0 

5 PRINT"3":REM CLEAR SCREEN 

10 FORJ=1TO20: PRINT -NEXT 

11 P0KE3S879,255 
40 POKE7746,102 
43 B=38466 

45 P0KE38466.4 
50 FORT=1TO300:NEXT 
60 A=7746 
65 P0KEA.32 

70 GET A*= IF A$="4" THEN A=A-1:B=B-1 

71 IFA$^"6" THEN A=A+1=B=B+1 

72 P0KE<A-23>,32 

73 P0KE<A-21>,32 

74 P0KECA-22>,32 

75 POKEA, 102 

76 P0KEB.4 
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77 FORT=1TO10Q:NEXT 

78 IFPEEK<R+22>=81 THEN 290 

79 SC-SC+1 

80 X=*INT<RND<n*506>+7680 

89 POKEX+30720,6 

90 P0KEX,81 
93 IF SO400 THEN 500 

95 IF SO300 THEN GOSUB 400 

96 IF SO200 THEN GOSUB 350 
100 PRINT 
110 G0T065 
200 POKE 36877,220 
210 FORL=15TO0 STEP -1 
220 POKE 36878, L 
230 FORM=1TO300 
240 NEXTM 
250 NEXTL 
260 POKE 36877,0 
270 POKE36878,0 
280 PR I NT "SHIP DESTROVED! ! ! ! " 

285 PRINT"SCORE=";SC 

286 IF SOHS THEN PRINT"HIGH SCORE=";SC = HS=SC 

287 IF SC<HS THEN PRINT"HIGH SC0RE=";HS 
290 FORT=1TO7000:NEXT 
295 SC»0 
300 GOTO 5 

350 V=INT<RND<l)*506)+7680 
368 POKEY, 31 
370 POKEY+30720,2 
380 RETURN 

400 D«INT<RND<l>*506>+7680 
410 POKED, 81 
420 POKED+30720,5 
430 RETURN 

500 PRINT"WELL DONE, YOU'VE" 
510 PRINT"SUCCESSFULLV NAVIGATED THROUGH" 
528 P0KE36878, 13 
530 P0KE36876,135 
540 FOR 0=241 TO 135 STEP-1 
550 FORM=1TO100 
555 P0KE36876,0 
560 NEXTM 
570 NEXTO 
580 POKE36876,0 
590 POKE36878,0 
600 END 
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Superpoet 



The VIC turns into Wordsworth, cranking out some splendid poems, and a few which are not 
so brilliant. Once you've seen it in action, change the words in the subroutines 100 to 270 to 
suit your own taste. Note the use of ON...GOSUB in line 40. 

5 REM SUPERPOET 

10 PRINT"T-REM CLEAR SCREEN 

15 IF RND<1»0.3 THEN 30 

28 F0RJ«1T0RND<1)#2: PRINT: NEXT 

30 FOR J= 1 TO RND < 1 ) #5+ 1 : PR I NT " " ; : NEXT 

35 J=INT<RND<1)*18)+1 

40 ON J GOSUB 100,118,120,130,140,150,160,170,180,190,200,210,220,230,240,250,26 
0,270 

50 F0RP*1T0 RND<1)*2000:NEXT 

70 GOTO 15 

100 PRINT"iDETACHED";: RETURN 

110 PRINT"i*JNfiWflRE";: RETURN 

120 PRINT"yJNRBLE";: RETURN 

130 PRINT"3IINITIATE";: RETURN 

140 PR I NT" BREACHED OUT FOR"; : RETURN 

150 PRINT'-SRVOIDS" J : RETURN 

160 PRINr'HSUFFERS";: RETURN 

170 PRINT"iCAPACITV";: RETURN 

180 PRINT"!*SPIRITUAL"; : RETURN 

190 PRINT"kALTHOUGH";: RETURN 

280 PRINT"aDISCIPLE";: RETURN 

210 PRINT"WE";: RETURN 

220 PRINT"AND";: RETURN 

230 PRINT"OTHEN";: RETURN 

240 PRINT"HMASTER";: RETURN 

250 PRINT-'BRFTER";: RETURN 

260 PRINT"!«_ONELY";: RETURN 

270 PRINT"HHIS";: RETURN 

AND THEN 
UNA WARE 
UNABLE 

ALTHOUGH 
AND MASTER 

REACHED OUT FOR 
UNABLE 

MASTER RETURNED 
UNABLE 
CAP A CITY SPIRITUAL 
DISCIPLE HE 
LONELY HE 

A VOIDS L ON EL Y MAS TER 
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Zauper Attack 



In this program by Christopher Hutber of Milton Keynes, you must zap the Aliens before they 
are eaten by the Zaupers. You need to take care because these creatures may also eat you. "Z" 
moves your gun left, and "C" moves it right. "X" will fire your gun. Full instructions are within 
the program. 

Structure of the program: 

Subroutine from 7000: This sets up a title page and gives the player instructions if they are 

wanted. 
Line 8: Reads the time for the start of the game. This is compared, in due course, with another 

reading (line 1 005) to see how long the round took you. 
Lines 1 5 to 70: Draw Aliens. 
Lines 1 00 to 1 20: Draw gun. 
Lines 1 40 to 1 92: Get commands from player. 
Lines 200 to 320: Move the gun. 
Routine from line 400: Fire gun. 
Line 555: Increment score. 

Routine from line 1 000: End of game, new game option. 
Routine from line 3000: 'Active Zaupers' . 

9 PRINT"!']" 

1 REMARKABLE PROGRAMME w CHRISTOPHER HUTBER AGED 12 

?. REM 24-27/12/81 

3 GOSUB 7000 

8 T1*TI 

9 SO0 

10 PRINT"T 
12 PRINT") 



13 REM DRAW ALIENS 

15 POKE 36879.8 

20 FOR 1*38400 TO 38531 

30 POKE LI 

40 NEXT I 

50 FOR H-7680 TO 7767STEP 3 

60 POKE H/81 

78 NEXT H 

90 REM DRAW GUN 
180 T*7955 

118 FOR R-38664T038664+21 
112 POKE R,7 
114 NEXT R 
120 POKE T,65 
130 IF 8C«30 THEN 1000 
135 REM GET INSTRUCTION 
140 GET A*: IF Af*""THEN 3000 
170 IF A*»"X"THEN400 
180 IF A$»"C"THEN300 
190 IF A*-"Z"THEN200 
192 IF Af-"#"THEN 5008 
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195 GOTO 140 

197 REM MOVE OUN 

203 FOR B=7944TQ7965 

210 POKE B/70 

220 NEXT B 

230 T«T-l:QOTO 120 

300 FOR B-7944T07965 

310 PQKEB/70 

320 NEXTB 

330 T-T+i:OOTO 120 

399 REM FIRE 

400 FORF"TTO7680+<T-7944)STEP-22 
410 PQKEF/46 
412 FOR W-l TQ25-NEXTW 
414 POKE F/32 

420 IF PEEK(F-22)"81THEN GOTO 480 
430 NEXTF 
455 POKE F+22/96 
460 FOR I>1TO50:NEXTI 
470 POKE F/87 

472 FOR G«7680+<T-7944)TQT-22STEP22 
474 POKE G/96 
488 PQKEF-22/32 

482 IF PEEK<F)O81RNDF<7702THEN GOTO €00 
488 POKE 36877/220 
490 L"7 

500 POKE 36878/ L 
510 FOR M-1TO 200 
520 NEXT M 
540 POKE 36876^0 
558 POKE 36878,0 
555 8C-8C+1 

560 PRINT" SCORE • " i 8CJ "T : GOTO 120 
600 PRINT" «CORE : " i 8C; "T : GOTO 120 
1000 PRINT'T 
1005 T2»TI 

1010 POKE 36079/30 
1020 PRINT"M4ELL DONE!" 

1030 PRINT" VOU WIPED OFF TNE ALIENS IN "/INT«T2~T1V60>/" 8EC0ND8!" 

1031 POKE 36878/ 15 

1032 FOR L"l TO 100 

1033 POKE 36876/ INT<RND<1)»128)+128 

1034 FOR N»l TO 10 

1035 NEXT M 

1036 NEXT L 

1037 POKE 36876/0 

1038 POKE 36878/0 
1040 PRINT: PRINT 

1050 PRINT"PUW ROHIN ? n 
1055 PRINT SPRINT 
1060 GETS* 

1070 IF S»»""THEN1060 
1080 IF S*«"Y"THEN 8 
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1090 IF 8*»"N"THEN1200 

1100 GOTO 1060 

1200 PRINTTRB<7);"BYE BYE" 

1205 PRINT 

1210 PRINT'THRNKS FOR PLAYING" 

1300 END 

2999 REN RCTIVRTE ZflUPERS 

3000 FORE*lTO10:R-INT<RNDU)*75>+7680 
3010 IF R>7767 THEN 3000 

3020 Q«INT<RND<l>*28>+7944 

3090 D-8.5+RNDC1) 

3060 IF DC1THEN V-21 

3070 IF DMTHEN V-23 

3100 FOR Z-RT0Q8TEPV 

3110 POKE Z,61 

3120 POKE Z-V,32 

3130 FOR X»1T025:NEXTX 

3150 IF R#«"#"THEN 5150 

3200 OET A*: IF AfO""THEN 178 

3300 NEXT Z 

3400 IF Z-TTHEN 4008 

3500 GOTO 170 

4000 PRINT'THZAUPERS HRVE WON " 

4058 PRINT 

4186 PRINT"M00N BR8E DESTROYED!" 

4150 REN EXPLOSION 

4280 POKE 36877.228 

4238 FOR LM5T08STEP-1 

4258 POKE 36878, 1 

4278 FOR M-1TO308 

4298 NEXT M 

4388 NEXT L 

4328 POKE 36877,8 

4338 POKE 36878,8 

4588 GOTO 1848 

5888 SC-SC-5 

5188 PRINTSC; "T 

5280 FOR K»1T0 50: NEXT K 

5308 GOTO 10 

7000 PRINTTABC3) ; " fl wmmmmmmmmmm " 

7010 PRINT TAB<3>J"IZAUPER ATTACK!*" 

7820 PRINTTRB<3>;"I BY «" 

7030 PRINTTRB(3>;"IC.R.J. HUTBER ■" 

7840 PRINTTflB<3> ; " 8 'Wmmmmmmmmm* " 

7060 PRINT: PRINT 

7100 PRINT" INTRUCTIONS <V OR N>?" 

7120 GET N*:IF M$-""THEN 7120 

7130 IF N$«"N"THEN RETURN 

7140 IF Nf«"V"THEN 7500 

7150 GOTO 7120 

7500 PRINT"VES" 

7510 PRINT 

7528 PRINT"' ZRUPER ATTACK' 18 R GflNE OF SPEED." 
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7530 PRINT :PRINT"THE OBJECT IS TO KILL ALL THE ALIENS IN 

POSSIBLE. " 
7540 PRINT: PRINT 
7550 PRINT"HIT fl KEV" 



AS QUICK TIME AS 




tsMCULLfri 
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7560 GET NT- IF N$«""THEN 7560 
7600 PRINT"T 
7610 POKE 36879/0 
7620 PRINT"* KEV" 

7630 PRINT" " 

7640 PRINT: PRINT 

7650 PRINT" • -ALIEN" 

7655 PRINT 

766d PRINT" ■ -ZflUPER" 

7665 PRINT 

7670 PRINT" * -VOUR GUN" 

7672 PRINT: PRINT: PRINT 

7675 PRINT"HIT fl KEV" 

7680 GET Of: IF 0*-""THEN 7680 

7700 PRINT'S" 

7710 POKE 36879^234 

7720 PRINT"ITHE ZflUPERS EAT THE ALIENS AND WILL" 

7730 PRINT"CRASH INTO VOU GIVEN HALF A CHANCE. " 

7735 G08UB 9000 

7740 PRINT: PRINT 

7750 PRINT'TO MOVE VOUR OUN PRESS" 

7760 PRINT: PRINT" 'Z'-MOVES IT LEFT" 

7770 PRINT: PRINT" 'C'-MOVES IT RIGHT" 

7800 PRINT: PRINT 

7810 PRINT"TO FIRE GUN PRESS: 'X'" 

7820 PRINT: PRINT 

7830 PRINT"HIT A KEV" 

7840 GET V*:iF V$*""THEN 7840 

7850 PR I NT "T 

7908 PRINT»WHEN ALL THE ALIENS ON THE SCREEN HAVE" 

3! E!™'5?u t£"you back to the START «• 

7930 PRINT"TAKE AWAV FIVE POINTS" 
7958 PRINT: PRINT 
3000 PRINT"HIT A KEV TO START" 
3010 GET XT- IF X*=""THEN 8010 
8020 RETURN 

9810 PRINT»THE N ZAUPERS ARE HIGHLVSENSITIVE TO THE HEAT « 
9tt£ PRINT-OIVEH OFF BV VOUR MOVEMENT AND FIRING," 
9030 PRINT"THUS WHEN VOU DO SO/' 
9040 PRINT-THEV ARE PARALVSED!" 
9045 PRINT :PRINT"HIT A KEV" 
9050 GET V*:IF V**""THEN 9050 
9060 PRINT"3" 
9070 RETURN 



Superbowl 



The VIC sets up the pins for you in this simulation of a 1 0-pin bowling alley, and then obliging- 
ly knocks them down, adding up your score as it goes. 
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There are 1 frames to a game, two balls to a frame. As you'll play this game, you'll find that 
strikes are few and far between. There is a highest score routine (310 to 330) which you may 
well want to adapt for other games you write. 



FRAME -* Bi^H-fc^ &&$ 







_ , .... _ 2.00 

5 REM SUPERBOWL 
29 V=8-S=0 

39 PRINT":]": REM CLEAR 

40 FORB=1TO10 
58 GOSUB500 

60 F0RE=1T02: PRINT: PRINT: PRINT 

65 PR I NT "3": REM HOME 

70 PRINT" !!FRP.ME"B"SBP,LL"E 

75 PR I NT : F0RT= 1 TO500 : NEXT 

80 Z=0 

90 FORO1TO10 

100 IFE=2THEN120 

110 fl<C)=79 

120 IF RND<1)>0.5 THEN -fKC)=45 

130 IF A<C>*45 THEN Z=Z+1 

140 NEXTC 

145 PRINT: PRINT: PRINT ,„,„*, n ,-*^s 

150 PRINT /'■"CHR*<fl( 10))" "CHR$<A<9))" "CHR*<fK8)>" "CHR$(fl<^)) 

155 PRINT :GOSUB700 

160 PRINT," "CHR*<fK6»" "CHR*<A<5))" "CHR*<A<4)) 

165 PRINT :GOSUB708 

170 PRINT," "CHR$<A<3))" "CHR*<A<2)) 

175 PRINT :GOSUB700 

180 PRINT," "CHR$<A<1)) 

190 PRINT 

200 PRINT" SSSCORE THIS FRAME"Z" 

215 PRINT 

220 IFE=1 ANDZ=18 THEN 370 

230 IFZ=10 THEN Z=15:PRINT, "iSBONUS! ! " 

240 IFE=2 THEN S=S+Z 

250 IFE=2 RND BO 18 THEN PRINT" «SC0RE SO FAR IS"S 

268 FORT«1TO1000:NEXT 

270 PRINT 
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289 NEXTE 

290 NEXTB 

300 PRINT"!SSCORE FOR THAT GAME WASH"S" 

310 IFS<Y THEN 330 

320 Y*S 

330 PRINT" iSHIGHEST SO FAR"Y 

340 FORT=1TO9800:NEXT 

350 S=0 

360 GOTO30 

370 PRINT 

380 PRINT, "nSSBTRIKEM" 

385 PRINT 

390 FORT*1TO1000:NEXT 

410 S=S+15 

420 E=2 

440 GOTO230 

500 FORD=lTO10:fl<D)=79:NEXT 

505 GOSUB2000 

510 PRINT "3" 

520 PRINT " HFRAME 

530 PRINT: PRINT 

540 PRINT: PRINT 

550 PRINT /'■"CHRtCRC 18) >" "CHR$<A<9>>" "CHR$<A<8>>" "CHR*<A<7>> 

555 PRINT 

'CHR$<A<6)>" 



"CHR*<A<3>>" "CHR*<A<2>> 



560 PRINT/ 

565 PRINT 

570 PRINT, 

575 PRINT 

580 PRINT," "CHR*<A<1>> 

585 F0RJ=1T05: PRINT" 

590 F0RT=1 TO 1000: NEXT 

600 RETURN 

700 REM DELAY, SOUND 

710 POKE36878,15 

720 F0RU=249T0239STEP-2 

730 P0KE36876,U 

750 F0RU«238T0249 

?6@ P0KE36876,U 

770 NEXT 

780 P0KE36876,8 

800 P0KE36878,8 

818 FORT=1TO50:NEXT 

820 RETURN 

2000 REM SET UP SOUND 

2010 P0KE36878, 10 

2020 F0RK»248T0148 STEP-2 

2825 P0KE36879,26+INT<RND<1)*6> 

2030 P0KE36876,K 

2040 P0KE36875,K 

2050 NEXT 

2055 P0KE36878,0 

2860 RETURN 



'CHR*<A<5)>" "CHR*<A<4>> 



" : NEXT 
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Zombie Island 



Your plane has crashed on a remote island, where the only topological features are round 
green swamps, and the only inhabitants are mindless zombies, shown on the display as letter 
Z's. The zombies are out to get you, a black 'clubs' symbol. You can move anywhere on the 
island, except through a swamp. The zombies are pretty stupid. They can see you, but not the 
swamps, and— as is well known among zombiologists— zombies drown instantly in swamps. 
You survive only if you manage to lure the zombies into the swamps. 

You control your movements on the island with four keys— "A" = up, "Z" = down, "," = 
left and "." = right. Although you may find it a little strange using these keys at first, you'll 
soon find you are automatically pressing the right key for the direction in which you want to 
move. It will help you, in the early stages of using these keys, to note that the 'greater than' and 
'less than' symbols point in the direction you will move if you press that key. These four keys 
are used in a number of programs in this book, and you may well want to use them in your own 
moving graphics games. 

The number of zombies on the island is determined randomly (line 2055) and neither they, nor 
you, can move outside the area bounded in purple on the screen. The number of drowned zom- 
bies is shown near the bottom of the screen, as is the number left alive. The zombies make 
quaint noises as they move in a reasonably intelligent way, but have some preprogrammed stu- 
pidity to give you a chance to survive. The fewer zombies there are left, the faster they move, so 
the last one alive can give you a run for your money. Each round of the game ends with an echo 
of the noise your plane made when crashing. After a short pause, a new game will start auto- 
matically. 

10 REM ZOMBIE ISLAND 

20 GOSUE2000 

30 GETS$:iFS$=""THENS*=T$ 

40 flE*R:BE=B 

50 I FS*« " fi " THENR=fl-22 : B«B~22 

60 I FS*= " Z " THENR=R+22 ' B*B+22 

70 I FS$* " . " THENR*fl+ 1 = B*B+ 1 

80 I FS*» " > " THENR*FI- 1 : B*B- 1 

90 W*PEEK<R> 

1 00 I FW« 1 27THENR=RE = B*BE 

110 1 FW-26THENR*RE '• B*BE 

120 1 FW*S 1 THENR*RE : B*BE 

130 PQKERE,i:PQKEBE;l 

140 POKER. 88 =POKEB,0 

150 TfasS* 

160 REM CONTROL ZOMBIES 

170 F0RR=1T0V 

180 U*0 

135 IFPEEK<GKR>)*81THEN260 

1 90 I FQ < R > >RTHENU*~ 1 : 1 FRNB < > > . 5TB£NI>~22 

200 I FQ C R ) <RTHENU= 1 = I FRND < » . 5THENU*22 

210 P0KEGCR>,46:P0KEP<R),1 
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220 Q<R)aQ<R)+IJ:PCR>aP<R)+U 

223 I FPEEK < Q < R > > *88THEN408 

230 I FPEEK < Q < R > > *8 1 THENTC»TC+ 1 : FOR I ■ 1 TO20 = PQKE36875 > 

255~3#I '• NEXT : P0KE36875, = GOT 0260 
235 IFPEEK<Q<R>>-127THENQ<R>-Q<R>-U:P<R>-P<R>-U 
240 P0KEQCR),26:P0KEP(R),2 
260 IFTC-VTHEN310 
270 P0KE36874 , 250-RND < ) * 1 5 
290 NEXT 

295 pr i nt " mmmmm m mmsmw-vi » tc » out of m v 

300 QOTO30 

310 PRmi"mmmmmms^mmpLv-t"iz"wsT of m v 

312 POKE36878.0 

315 PRINT"8Wi'0U'VE SURVIVED!!" 

320 GOTO407 

400 P0KEGKR),26:P0KEP<R>,2 

402 POKE36874.0 

405 pr i nt " mmm m mmmmMmtBLLw " tc " out of h v 

406 PRINT" SMTHRT'S THE END!" 

407 FORV*1TO100 

408 P0KE36877 > 1 30+RND < > * 1 00 
420 NEXT 

430 PQKE36877,0 

440 FORV=1TO3000:NEXT 

458 RUN 

2000 REM INITIALISE 

2005 PRINT"r3":V«0 

2010 F0RJ=1T015 

2020 P0KE7679+J, 127 : P0KE38399+J, 4 

2030 P0KE7987+ J , 1 27 : POKE38707+ J , 4 

2840 NEXT 

2050 FOR J*7680TO7983STEP22 = POKE J .. 1 27 : POKE30720+ J , 4 

2854 Z=INTCRND<0>*1 1 >+3 = Z1-INT<RND<0>#1'1 >+3 

2055 I F J>7680RND J<7988THENP0KE J+Z , 8 1 : POKE J+Z+30720 > 3 

2036 T=8 : 1 F J>7680RNDJ<7988flNDRND < » . 6THENT* 1 

2057 I FT* 1 THEN V* V+ 1 : Q < V > * J+Z 1 : P < V > - J+Z 1 +30720 = POKEQ < V > , 26 ■ POKEP < V > > 2 

2060 POKEJ+15,127:PQKE30735+J,4 

2070 NEXT 

2080 fl=*7726 : B=38446 = REM START POSITION PLOVER 

2090 POKER, 88 :POKEB,0 

2100 T$*"." 

2120 P0KE36878.15 

2500 RETURN 
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Motorcycle Jump 



You are Evil K., world champion stunt rider, and your task in this graphic game on the VIC 20 
is to jump over a number of red London buses. Each time you succeed, a new bus is added to the 
ones you must leap. 

When you run the program, you'll be told the angle of the ramp, and the number of buses you 
must jump. You enter the speed at which you wish to leave the ramp (we suggest you start off 
between 34 and 40 miles per hour) and you'll see, and hear, your motorbike spin up and over 
the ramp, and— I hope— over the buses. If you succeed, the ramp will be raised, and the number 
of buses will be increased. 

Because the angle of the ramp affects the distance you can clear, and because this program 
uses an approximation to genuine formulas to work out whether or not you would clear the 
buses given a particular take-off speed on a ramp of that angle, you'll find your interest in this 
program will remain high, no matter how many times you play it. There is no way, for example, 
to know that if there are four buses, a speed of 42 mph will always clear them. It depends on the 
angle of the ramp. 

If you use too much acceleration, you'll flip upside down. Too little, and you'll crash. Far too 
little, and the program will tell you that you've "bingled"! If you manage to clear eleven buses, 
you'll be declared "The Champ". 



10 REM MOTORCYCLE JUMP 

12 POKE 36879,24 

13 PRINT":]" :i>7 

20 GOSUB2000 : REM VP.RIP.BLES 

30 GOSUB3000 = REM DISPLAY 

100 GOSUB1000=REM CALCULATE 

105 A$<=" BINGLED!" 

110 1 F ABS < F-L > >5THENA$» " CRASHED " 

120 IFF>«LANDF*<L+15 THEN A**" SUCCESS" 

130 I FF>L+i5THENA$«" LANDED UPSIDE DOWN" 

140 U*i:GOSUB3000 

145 L*L+10:N*N+INT<RNDa>#3+l> 

147 B*B+1:IFB*11THEN5000:REM CHAMPION 

200 GOTO 100 

300 REM SOUND FX 

310 POKE36877,220 

320 P0KE36878,K/3 

330 RETURN 

360 POKE36677,240 

370 P0KE36878, 1.7*2 

380 RETURN 

1000 PR I NT "SWF: AMP >"N" DEGREES" 

1010 PRINT"WfTHERE ARE"B" BUSES" 
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1020 PRIHT"WTHIS IS ATTEMPT "A 

1 040 I NPUT " MSPEED " ; V = I F VO0THEN i 040 

1 043 FORK* 1 TO500 : NEXT 

1 050 A*A+ 1 : E* >: V*528 > /360 

1060 F«<E*C0SCN>>*<<E#8IN<N>>/'32.2>:F«flBS<F> 

1070 RETURN 

2000 L»10sN-23:B-i:fl*l 

2030 RETURN 

3000 PRim'^mmmmmmmman,'" •, 

3010 FQR2*1T0B 

3020 PRINTS ■»; 

3030 NEXT: PR I NT 

3040 IFU*7THENRETURN 

3050 P0KE7944 , 1 27 = P0KE38664 , 4 

3060 FORK* 1 TO50 : G0.SUB3 1 : NEXT 

3070 P0KE38664,1 

3080 W*792l:Wl«38641 



s mmm? 



ri ) »2THENW*W-23 : W 1 *W 1 -23 
3100 POKEW+2,127 
3200 PQKEW 1+2,4 
32 1 FORK* 1 T02 = GOSUB360 : NEXT 
3220 POKEW 1+2,1 
3300 FORK*1TO10:NEXT 
3310 NEXT2 

3330 I FLEFT* < A$ , 1 > O " S " THEN4000 
3350 F0R2*B+4T0B+8 
3360 W*W+23:Wl*Wl+23 
3370 POKEW+2,127 
3380 POKEW 1+2, 4 
3390 FORK*lTO20+2 
3400 NEXT 
3410 POKEWl+2,1 
3420 NEXT2 
3430 POKE36878,0 

IS3S PSS^=5 I TO20 = P0KE36879 , I NT <1 6#RND < 1 > +2+RND ( 1 ) *8 > : OOSUB320 ■ NEXT 

4010 PRINT"W«0H NO, YOU'VE" 

4020 PR I NT "JP" A* 

4022 POKE36877,250 

4025 FORT* 1 TO 1 00 : P0KE36878 , RND a > * 1 3+ 1 

4030 NEXT 

4035 POKE36878,0 

4040 GOTO4040 

5000 FORK* 1 TO20 : P0KE36879 , I NT U 6*RND <1 > +2+RND < 1 > *8 ) : NEXT 

5010 P0KE36879,25 

5015 FORT*1TO50=NEXT 

5020 PRINT-'MWyOU'RE THE CHAMP!!" 

5030 GOTO5000 * 

6000 REMSTART WITH AROUND 34-40 

6010 REM TOO LITTLE ACCELERATION AND VOU CRASH 

6020 REM TOO MUCH AND VOU FLIP UPSIDE DOWN 



98 



Traffic Jam 



There are two versions of this program. The first uses the keyboard to control your car ("A" 
= up, "Z" = down, "," = left and "." = right) while the second uses a joystick. 

The aim of the game is to drive your car (a red asterisk) from the top lefthand corner of the 
screen to the carpark (the red oval in the bottom righthand corner). You will be asked first to pick 
a skill level from one to nine. One is the hardest, and nine the easiest. A number of cars (colored 
diamonds) will appear on the screen, the number of cars being related to the difficulty level you 
choose. The carpark will flash off and on for a few seconds, and you'll appear in the top lefthand 
corner to make your journey. 

You can only score if you make it to the carpark without hitting any of the cars, more and 
more of which appear as the game progresses. Your score is related to the skill level you choose 
and the time it takes you to drive to the carpark. The keyboard version only allows movement 
up, down, left, and right, while the joystick version of the game also allows diagonal moves. 

10 REM TRAFFIC JAM 

15 REM KEYBOARD VERSION 

20 H*«" 000600" =HS=0 

30 PR I NT "IT 

40 GQSUB9540 

1 000 GET A$ = I F A$= " " THENA* =B* 

1010 E=C : Q=8 

1 020 I F A*= " . " THENS*S+ 1 = C=C+ 1 

1 030 I FA** " , " THENS*S- 1 = OC- 1 

1 040 I F A*» " A " THENS-S-22 : OC-22 

1050 I F A$= " Z " THEN8=8+22 : OC+22 

1070 W*PEEK<S> 

1075 IFW=81THEN2040 

1 080 I FW= 1 02THENOE : S*Q 

1090 IFW=90THEN2000 

1200 POKEE.- 1=REM ERASE WITH WHITE 

1210 P0KEC,2=P0KES,35 

1220 B$-A$ 

1230 R* INT < RND < > *458 > +7704 = R2«R+30720 

1240 W=PEEK<R> 

1250 IFW*102THEN1230 

1260 P0KE36878 ,15 = P0KE36875 , 1 40+ < R-7704 > /4 ■ P0KE36878 , : P0KE36875 , 

1270 POKER, 90 = P0KER2i VRL<MID#<P$, INT<RND<0)#6) + 1 > 1 > > 

1 280 FORO* 1 T02*G- 1 : NEXT 

1500 GOTO 1000 

2000 REM CRRSH 

2010 PRINT'-MBWIYOU HAVE CRASHED ":M*0 

2020 PRINT"MIW»iITIME : "RIGHT*-r.TI*,2>" SECONDS" 

2030 GOTO3000 

2040 PRINT"WKIiiirT , OU MADE ITM" :M-1 

2050 P0KE38881,1 

2060 POKE38860,1 
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2070 GOTO2020 

3006 TY=VRL<TI$> 

3003 S* I HT < C50-T V > * 1 00^G > *M 
3005 IFS>HSTHENH3=S 

3007 PR I NT " MfililS.CORE ■ " S 

3010 PRIHT-'KWWiHIGH SCORE : "HS 
3020 FORT- 1 TO2000 = NEXT 
3030 GOTO30 

5009 PRIHT":««!WWJSKILL LEVEL <.l TO SO?" 

50 1 GET Z$ : I FZ$= " " THEN50 1 
5020 G=VRL<Z$> 

5030 IFG<1ORG>9THEN5010 

5040 PR I NT "IT 

5050 RETURN 

9540 S=7703 

9550 C=38423 

9560 P$=" 654320" 

9570 B#="." 

9580 GOSUE5000 

9590 FORZ*7680TO7701 : POKEZ, 102 : POKEZ+30720, VflL 

< M I D* < P* , I NT < RND < > *6 > + 1 , 1 > ) : NEXT 
3€>m F0RZ=8 1 64T08 1 85 = POKEZ , 1 02 : POKEZ+30720 , VflL 

< M I D* < P$ , I NT < RND < > *6 > + 1 , 1 > > : NEXT 
9620 FORZ=7680TO8 1 648TEP22 : POKEZ ,102 = POKEZ+30720 , 

: POKEZ+21 , 102 : POKEZ+30741 , : NEXT 
9670 F0RU=1T025-2*G 

9680 R* I NT < RND < ) *458 > +7704 : R2=R+30720 
9685 P0KE36879 , I NT < RND < > # 1 27 > + 1 
9690 W=PEEK<R'; 
9700 IFW-102THEN9680 

97 1 P0KE36878 ,15 = P0KE36875 , 1 40+ < R-7704 > /4 : P0KE36873 , = POKE36S75 , 
9720 POKER, 90: POKER2,VflL<MID*<P$,INT<RND<0>*6>+l, IV) "' 
9730 NEXT 

9733 P0KE36879..26 

9735 FORL=1TO50 

9736 POKES 162, 81 , 

9737 POKE38882,0 

9738 FORT*1TO10:NEXT 

9739 P0KE38882,5 

9740 NEXT 

9745 FORT= 1 TO 1 000 : NEXT 
9750 T I *=*" 000000" 
9780 P0KE38882,2 
9999 RETURN 

10 REM TRAFFIC .JAM < JOYSTICK VERSION 1 ) 

15 DIMJSC2,2> 

20 HS=0 

30 RESTORE : GOSUB9490 

5 1 POKEDD , 1 27 : S3— (. <. PEEK < PB > AND 128 > =0 > : POKEDD , 255 

520 P-PEEK<Pfl> :S1— aPRND8>-0) :S2-<<PRND16>-0> :S0-<<PflND4)«0> 

530 FR— <<PfiND32)-0>:X-S2+S3:V-3B+Sl 

1010 E=C:Q=S 

1 020 S*S+ JS < X+ 1 , V+ 1 > 
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1025 C*C+JS<X+1,Y+1> 

1070 W=PEEK<S> 

1075 IFW*81THEH2040 

1080 IFW«102THENC*E:S=Q 

1090 IFW*90THEN2000 

1200 P0KEE,1:REM ERASE WITH WHITE 

1210 P0KEC,2:P0KES,35 

1 230 R- 1 NT < RND < > *458 > +7704 : R2*R+30720 

1240 W=PEEKCR> 

1250 IFW»102THEN1230 

1 260 P0KE36878 ,15: P0KE36875 , 1 40+ < R-7704 > /4 = P0KE36878 , : P0KE36875 , 

1270 POKER, 90 ■ P0KER2, VAL<MID*<:P*, INT<RHD<:0>*6> + 1 , 1 > > 

1 230 FQRO* 1 T02*G- 1 : NEXT 

1500 GOTO510 

2000 REM CRASH 

2010 PRINT ,, H«WWi'OU HAVE CRASHED ": M=0 

2020 GOTO2070 

2040 PRINT'-WttiWyOU MADE IT!!" 'M-l 

2050 P0KE38881,1 

2060 POKE38860, 1 

2070 PRINT"W8*iimriE: "RIGHT*<TI$,2>" SECONDS" 

2080 S- I NT < C 50- V AL < T I * ) > * 1 2345/G > *M 

2090 IFS>HSTHENHS*S 

2 1 00 PR I NT " MMHilSCORE : " S 

2105 PRINT"]«!0iHIGH8CQRE: "HS 

2110 FORT* 1 TO3000 = NEXT 

2120 GOTO30 

5000 PRINT"WW«)aSKILL LEVEL U TO 9>?" 

5010 GET Z$:IFZ$»""THEN5010 

5020 G*VAL<Z*> 

5030 IFG<1ORG>9THEN5010 

5040 PR I NT "IT 

5050 RETURN 

9490 PR I NT "IT 

9500 REMINITIALISE 

95 1 P0KE37 139,0: DD=37 1 54 : P A*37 1 37 : PE=37 1 52 

9520 FOR2=0TO2 = FOR J=0TO2 : RE ADJS < J , Z > = NEXT J , Z 

9530 DATA-23, -22, -21, -1,0, 1,21,22,23 

9540 S*7703 

9550 C=38423 

9560 P*«" 654320" 

9580 GOSUB5000 

9590 FORZ=7680TO7701 = POKEZ, 102 • POKEZ+30720, VAL 

<MIB*<:P*,INT<RND<0>*6>+1,1>>:NEXT 
9600 F0RZ*8 1 64T08 1 85 : POKEZ ,102 = POKEZ+30720 , VAL 

<MID*<P*, INTCRND<0>*6>+1, 1)> : HEXT 
9620 FORZ«7680TO8164STEP22 : POKEZ, 102 = POKEZ+30720, : POKEZ+21 , 

102 : POKEZ+30741 , : NEXT 
9670 F0RU=1T025-2*G 

9680 R* I NT T. RND < > *458 > +7704 : R2«R+30720 
9685 P0KE36879 , 1 NT < RND < & > * 1 27 > + 1 
9690 W=PEEKCR> 
9700 IFW*102THEN9680 

97 1 P0KE36878 ,15 = P0KE36875 , 1 40+ < R-7704 > /4 : P0KE36878 , "■ P0KE36875 , 
9720 POKER , 90 : P0KER2 , V AL < M I D$ <". P* , I NT < RND < ) *6 > + 1 , 1 ) > 
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9730 NEXT 

9733 P0KE36379.26 

9735 FORL*1TO50 

9736 POKES 162, 81 

9737 POKE38332.0 

9738 FORT«1TO10=NEXT 

9739 P0KE38382.5 

9740 NEXT 

9745 FORT* 1 TO 1 000 : NEXT 
9750 T I *»" 000000" 
9780 P0KE33882.2 
9999 RETURN 
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Hangman 1 1 



Here's another version of Hangman. In this one, the computer picks the word for you to 
guess. Change the words in the DATA statements from line 370 to add your own vocabulary. 
The number of "lives" you have is related to the number of letters in the word to be guessed. 



10 REM HANGMAN- 11 

20 FORD- 1T0RND<1> ¥22+1 

30 READA* 

40 NEXT 

50 V*0 

60 N*LEN<A*> 

80 FQRG=1T0N 

90 B<G>=ASC<MID*<A$,G,1>> 

100 D<G)*BCG> 

110 next: pr i NT n mar 

1 20 Q* I NT < N+N/2+ . 5 > : PR 1 NT " VOU HAVE " Q " CHANCES " 

130 FORJ-lTOGPV-Y+i 

140 GO3UB410 

130 IFH*NTHEN300 

190 PR INT "rWflHWTQ+l -J "CHANCES LEFT" 

200 INPUTC* 

210 F*ASC<X*> 

220 FQRG=1TQN 

230 I FB < G > »FTHEND < G ) »0 = J* J- 1 

240 NEXT -NEXT 

250 GOSUB410 

260 PRINT:PRINT"SBSDRRY, TIME'S UP!1" 

280 GOTO330 

300 REM** WIN** 

310 PRINTTAB<3)"»BM»lfc£«.IL PDBIDtWnCl! " 

320 PRINT-'Wr-OU GOT THE WORD IN"Y-l 

330 PR I NT "WIT WAS SI" A* 

340 GOTO340 

370 DATA "TERROR" , "POSTURE" , "ELEPHANT" , "STATUS" > "BACHELOR" , "ANSWER" 

380 DATA "TENOR" * "BANANA" , "FIGURE" , n IDIOT" , "NARCOTIC" , "PATHETIC" 

390 DATA" WIZARD" , "WICKED" , "WIZENED" , "EVIL" 

400 DATA "PART I CLE" , "ATOM" * "ELECTRON" , "START" > "FAMISHED" , "EAGLE" 

410 H*0 

415 PRINT"WBW" 

417 FORE* 1 TON 

420 I FB < E > «D < E > THENPR I NT " W- " ; 

430 IFB<E>OD<E>THENPRINT"a n ;CHR*<B<E)>; =H«H+1 

440 NEXT : PRINT 

460 PRINT--IFHONTHENPRINTH"C0RRECT LETTERS" 

480 PRINT 
490 RETURN 
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Antihang 



This is Hangman in reverse. The computer tries to guess the word you have chosen. 

When you run the program, you'll be asked HOW LONG IS THE WORD YOU HAVE CHOSEN? 
Enter the number of letters in the word— if your word were APPLE, you'd enter 5— and then 
press RETURN. The next thing you'll see on the screen is five inverse blue dashes, one for each 
letter in the word, as well as LIVES LEFT - 10. This is followed by I GUESS and the letter the 
computer has guessed. If the letter is one which is in the word, say A, then you enter 1 , to show 
it was the first letter in your chosen word. If the letter is not in your word, you enter 0. Assuming 
the computer guesses A as the first letter, you enter 1 and press RETURN. Immediately, the five 
inverse dashes are reprinted, but this time the first one has changed into an A. The words I 
GUESS A are still there, to cater for double letters. Because there are not two A's in APPLE, you 
enter and press RETURN. 

Here's how one game I played with the VIC progressed. I was thinking of the word START: 

T - 5 LIVES LEFT - 1 T 

T - 2 LIVES LEFT - 1 -T--T 

T - LIVES LEFT - 1 -T--T 

E-0LIVESLEFT-9 -T--T 

A- 3 LIVES LEFT- 9 -TA-T 

A - LIVES LEFT - 9 -TA-T 

O - LIVES LEFT - 8 -TA-T 

R-4 LIVES LEFT- 8 -TART 

R - LIVES LEFT - 8 -TART 

S - 1 LIVES LEFT - 8 START I WIN I WIN I WIN 

You'll find that, generally, the longer the word, the better the chance the VIC has of working it 
out. Antihang is based on a program written by Toni Baker. 

1 9 REMETFlDNR I SHDLFCMUG YPWBJKQX VZ 

20 L=10:Q*45 

30 PRINT'-IlSWMnHCiW LONG IS THE WORD VOU HAVE CHOSEN''" 

40 INPUTS PR I NT "3" 

50 DIMFK26>,C<N>,G<N> 

110 FQRZ*1T026 

120 FKZ>*PEEKC4101+Z> 

130 IFZ<N+1THENG<:Z>*Q 

140 NEXT 

150 Z«INT<RND<0>*3?+1 

160 B$«CHR*<FKZ>> 

170 FQRJ*ZT025 

180 FKJ>*FKJ+1> 

190 NEXT 

200 R=0 

210 PRIHT":ieiW*»»i»llSG''; 
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220 
230 
240 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 

400 

410 

420 



F0RZ-1T0N 

PRINTCHR*<G<Z>>; 

NEXT: PRINT 

PR I NT "WML IVES LEFT -"L 

PRINT"WPI GUESS "B$ 

INPUTB1 

IFB1=0THEN350 

fli-1 

g(bi>*rsc<:b*> 

GOTO200 

F=0 

FORZ-1TON 

IFG<Z)aQTHENF«l 

NEXT 

I FF*0THENPR I NT " MX»»ia»I W I N ! ! " '• GOTO390 

IFfila0THENL«L~l 

Fll=0:IFL>0THEN150 

PRINT ,, HH»iiW*'OU WIN! !":GOTO420 



105 



Treacle Balls 



In this game of logic and deduction, you roll balls down a series of chutes numbered one to 
seven. There are three pools of treacle in the chutes. They may all be in the same chute, in three 
different chutes, or two in one and the third in a different chute. You have six seconds (guesses) 
to work out where the treacle lies. 

When a ball hits treacle, it either sinks (you'll be told THE BALL VANISHED), or it is deflected 
to the chute to the right or to the left of the one it is in. If there is a treacle in two adjoining 
chutes, they may both act on the ball before it reaches the end, confusing you to some extent. 

If you wish to guess where the balls are, you enter '8' instead of a chute number, and then 
enter your three guesses. You will be told how many you had to correct. If you think there are 
two pools in the same chute, you must enter the number twice in your guesses. If you fail to 
guess where the treacle lies within six seconds, you'll be told where it is, and the game ends. If 
you wish to make the game a little easier the first few times you play it, change the six in line 70 
to a higher number. 

10 REM TREACLE BALLS 

23 REM POSITION TREACLE 

30 F0RA*1T03 

40 B<A>=INT<RND<1>#7>+1 

50 NEXT 

60 REM COUNT GUESSES 

70 F0RH«6T01 STEP-1 

80 PRINT'TSfr'OU HAVE"H" SECONDS" 

83 PR I NT "CENTER BALL CHUTE NO." 

86 PR I NT "OR 8 IF VOU THINK VOU" 

87 PR I NT "KNOW WHERE THE" 

88 PR I NT "TREACLE LIES" 
90 INPUTS I FC»8THEN5000 
95 GOSUB3000 

100 D«l 

110 IFB<D)=CTHEN1000 

120 IF D<3 THEN D*D+1 :G0T01 10 

125 GOSUB4000 

130 PRINT"OTHE BALL ROLLED" 

140 PR I NT "OUT 0F"C 

150 FOR 2«1TO2000=NEXT 

160 NEXTH 

170 PRINT"«ISORRV, TIME IS UP" 

188 PRINT-WfTHE TREACLE WAS IN" 

190 FOR A*1T03 

200 PRINT B<A> 

210 NEXT 

220 END 

1000 REM TREACLE! 

1010 IF RND<1»«.9 THEN 2000 

1020 IF 0*1 THEN C*2= GOTO 100 

1030 IF C*7 THEN 0=6= GOTO 100 
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1040 
1060 

1075 

2000 
2010 
2020 
3000 

3015 
3020 
3030 
3040 
3050 
4000 
4030 

5000 
5010 

5020 
5030 
5040 
5050 
5055 
5060 
5070 
5030 
5090 
5105 
5106 
5107 
5110 
5120 
5130 
5140 
5150 
5160 



F*INT<RNDa>#2>-l 

C=C+F 

GOTO 100 

REM LOST 

PRINT M HTHE BALL VANISHED" 

GOTO 150 

PR I NT " mm" TAB < 3+C > ; C 

F0RZ*1TQ5 

FORV*1TO10*Z=NEXTV 

PRINT TflB<S>;"« I I I I I I I " 

NEXT 

RETURN 

PR I NTTflB < 3+C > J " 1" .: C " MM" 

RETURN 

REM TRIAL GUESS 

PR I NT "WOK, WHERE DO VOU" 

PR I NT "THINK THE TREACLE" 

PR I NT "POOLS ARE?" 

XNPUTGK1),GK2>;GK3> 

SR«0 

FORV* 1 T03 • U < V > *B < V ) : NEXT V 

FQRN*1T03 

F0RM*1T03 

IFG<M>«B<N>THENSR*SR+l : B<N>-0:Q<M>e0 

NEXTM,N 

F0RP=1T03 

B<P>*W<P> 

NEXT 

IF SR>2THEN 5150 

IF SR>0 THEN PRINT "VOU GOT "SR" RIGHT" 

IF SR*0 THEN PR I NT "WRONG, WRONG, WRONG" 

GOTO 150 

PR I NT "WES* VOU GOT THEM" 

PRINT"WITH"H"SECONHS TO GO" 
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Craps 



Craps is a relatively simple gambling game played with two dice. The simplicity of the game 
itself is somewhat offset by the complexity of the betting possibilities. To make it easier to 
learn, we've included two versions of the game: Minimalist Craps to show you the game of 
craps in action and SF Craps which enables you to bet following some casino-like rules. 

As you can see, the first listing is very short indeed. Enter and run it, and you'll then find it 
much easier to understand the description of the game. 

To play, you roll two dice and add up their pips. If you roll a seven or an eleven on the first roll 
(called a natural) you win, and that round is over. If you roll two, three, or twelve on the first roll 
(called craps), you lose. Rolling four, five, six, eight, nine, or ten on the first roll becomes your 
point. The aim of the game— assuming it has not ended with the first roll— is to roll your point 
again, before you throw a seven. When you're sure you understand these instructions, look 
again at the first Craps program in action to relate what you've read here to the program. 

Once you've understood Craps so far, you're ready to enter the deluxe version of the game, 
SF Craps. In this version, you're introduced to Craps betting. You can bet on the round overall 
for a win ("Pass") or on the round overall for a loss ("Don't Pass"). If the game lasts more than 
one roll of the dice, you can have a side bet on each subsequent roll, betting that a particular 
number, including seven if you like, will come up. You do not need to make the side bets if you 
prefer to keep the game fairly simple. 

10 REM MINIMALIST CRRPS 

12 G=0:W=0:L=0 

15 G=G+1 

20 B*="VOU ROLLED" = PR I NT" 3" 

27 PR I NT : PR I NT " W I NS " W , " LOSSES " L 

28 PRINT: PR I NT "GAME NUMBER "G 
30 GOSUB200 

40 IFfl=7ORP«llTHEN240 

50 IFfi-2ORfl-3ORfl-12THEN230 

55 P=fl 

60 PRINT: PR I NT "YOUR POINT IS"P 

70 GOSUB200 

80 IFfl=PTHEN230 

90 IFR=7THEN240 

100 FORT«1TO1000=NEXT 

110 PRINT":?' =GOTO60 

200 P.* I NT <. RND <. 1 > *6+RND T. 1 > *6+ 1 > 

2 1 FORT= 1 TO2000 : NEXT 

215 PRINT: PRINTED 

220 RETURN 

230 PRINT"VOU UIN":W-W+l:GOTO230 

240 PR I NT "YOU L0SE":L=L+1 

250 FORT=1TO1000:NEXT 

260 GOTO 15 

10 REM SF CROPS 

15 PRINT":]" :G08UB 770 
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20 FIO20 

30 GOTO 115 

40 PRINT'TIWWSPRESS RETURN TO ROLL" 

50 GET R*:lFR$s"" THEN50 

60 fl=IHTCRHD'r.0)*6)+INT<RND<0>*6>+2 

70 GOSUB 770 

80 PRINT"W»VOU ROLLED "fl 

82 FORT*1TO500:HEXT 

85 RETURN 

100 IF M0<1 THEN PR I NT "YOU'RE SIBROKE ! " = GQSUB770 = GOTO 1 00 

110 FORT»1TO5000:NEXT T 

115 PR I NT "H" :PRINT:PRINT"WOU START ROUND": PRINT TAB<8>; "WITH »"MO 

120 PRINT")^FLflCE VOUR BET" 

130 PRINT-ara'P'S TO PLACE BET" : PR I NT "ON PASS LINE," 

140 PRlNT")W'D.'a FOR DON'T PASS" 

150 GET B$:IF B*="" THEN 150 

155 IF B$0"P" AND B*0"D" THEN 150 

160 B*0 

178 INPUT" WSIZE OF BET";B 

180 IF B>MO OR B<1 THEN GOTO 170 

190 GOSUB 40 

200 IF A<>7 AND flOll THEN GOTO 310 

210 REM NATURAL 

220 PRINT-WW^OU ROLLED A NATURAL" 

230 IF B*="D" THEN 270 

235 PR I NT "ON PASS BET" 

240 PRINT"«Mfr , OU WIN *"B 

250 MO=MO+B 

260 GOSUB 770=GOTO110 

270 PRINT "ON DON'T PASS BET" 

280 PRINT "Wiifi'OU LOSE *"B 

290 MO-MO-B 

300 GOTO 100 

310 IF A<>2 AND A03 AND A012 THEN 350 

32© GOSUB 770 : PR I NT = PR I NT "!*SF nCRAPS!" 

325 FOR T«1TO100=NEXT T 

330 IF B#*"P" THEN 280 

340 GOTO240 

350 PT*A 

355 IF M0<1 THEN 100 

360 PRINT"WVOU NOW HAVE *"MO 

370 PRINT"Kii , VOUR POINT IS "PT 

380 PRINT"HSINPUT NUMBER FOR" : PRINT" SIDE BET, OR PRESS" 

390 PR I NT "RETURN SFGR NON-BET" 

400 K**"" :C»0 

410 INPUTK* 

420 IF «$»"" THEN 490 

430 C«VAL<K$> 

440 IF C<2 OR 012 THEN 400 

450 INPUT "HOW MUCHMD 

470 GOSUB 7X0 

480 IF D>MO OR D<X THEN 450 

490 GOSUB 60 
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49? IFR«7THEN630 

530 IFfl»PTTHENPRINT"Sli'OU / VE MADE VOUR POINT" : IFO0THEN230 

520 IFO0THEN355 

530 IF COfl THEN 580 

540 PRINT"RND VOU WIN R SIDE" 

550 PRINT "BET OF *"WI 

560 MO-MO+WI 

565 IFfl»PTTHEN230 

570 00T0355 

580 PR I NT "VOU LOSE *"WI 

590 PR I NT "ON VOUR SIDE BET" 

600 MO«MQ-WI 

605 IF M0<1THEN 100 

607 IFR«PTTHEN230 

610 G0T0355 

630 PR I NT "■VOU ROLLED 7...." 

640 IFB*« M D"THENPRINT"ON DON'T PASS BET":GOTO240 

66^ PR I NT "ON PASS BET":GOTO280 

710 REM ODDS/14 IN 

720 WI»D 

730 IF fi«6 OR fl*8 THEN WI-INT<<8#D/5>+.5> 

740 IF fl«5 OR R«9 THEN WI«INT<<5*D/2>+.5) 

750 IFR=4 OR fl«9 THEN WI*2*D 

760 RETURN 

770 REM SOUND 

780 POKE 36878.15 

790 FORT-10 TO 180 STEP RND<l)#10+.5 

800 POKE 36876. 255-T 

828 NEXT T 

830 POKE 36876,0 

840 POKE 36878,0 

850 RETURN 
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Caveman 



As the Mighty Caveman, you must survive in the labyrinth-like cave system for 25 minutes, 
battling monsters and finding treasure, while trying to avoid quicksand, and blundering into 
walls and blocked caves. You have five arrows, and each monster you kill gains you extra 
wealth. There are also magic caves, which move you randomly through the system. 

This program occupies all but 70 bytes of the memory on the standard VIC so there is no room 
for elaboration. To make sure as many features as possible could be squeezed in, PRINT state- 
ments are terse to the point of rudeness. 

You start in cave 55. You are shown a view of the system from above at the beginning of the 
program and from time to time while a game is underway. The key to the cave's contents is H = 
you (for human), $ = gold, Q = quicksand, a diamond shape = a magic cave, a grey square = a 
blocked cave, and a full stop = an empty cave. 

You can move up, down, right, or left one square at a time (which you do by entering N = 
north, S = south, E = east, or W = west). You can also choose to shoot into an adjoining cave, 
which you do by entering an F. Your cave computer will warn you when things are nearby 
(NEARBY IS . . . GOLD is one typical message), but being a Cromagnon VIC 20BC, it tends to 
malfunction so you only know of the contents of one of the surrounding caves, rather than what 
is in all of them. As well, it does not tell you which of the surrounding caves it is talking about. 

A cave is emptied after you leave it, so you cannot revisit a cave containing gold over and over 
again to enrich yourself. If a beastie gets you or if you fall into quicksand or run out of air, the 
game ends with a printout of the system. 

When you run the program, you'll see the words CAVE 55 at the top of the screen. If your 
Cromagnon VIC 20BC has any message for you, it will appear next, followed by a number which 
is the minutes of air you have left, and then a prompt questionmark. The computer is waiting for 
your direction input (N, S, E, or W) or a decision to fire an arrow (F). If you try to go where there 
is no path, a message BLOCKED CAVE will appear, and you'll have to enter a new direction. If 
you say you wish to fire an arrow when your five are used up, you'll be told you're out of arrows 
and be asked for a new instruction. Good hunting, Caveman. 

30 B I MRU 00 > : H*0 : 0=6 : L«0 = G«0 = RR*6 

40 P0KE36878,15 

50 FORE* 1 TO 1 00 = H < B ) -46 

60 IFB<12ORB>90ORi0*INT<B/10>=BOR10*INT<B/10>*B-lTHEHFl<B>=166 

100 NEXT 

1 1 F0RB= 1 T05 : RESTORE : F0RD= 1 T05 

115 Z-INT<RND< 1 )#76>+12 : IFfKZ>-166THENl 15 

120 RERDC:fl<Z>-C 

130 NEXT: NEXT 

140 BflTR166,218,77,81,36 

150 F0RB-1T08 = RERDP<B> : NEXT = DflTfl-1 1 ,-10,-9,-1,1,9,10,11 

230 E=55 

240 FKE)=72 

245 PRim"ZOSmm u i :GO8UB9040 

250 Q«INT<RND<i>*7> 

305 I FQ*0RNDEO55THENGOSIJB9040 

310 PRINT ,, rBMWICflVE ,, E 
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32© I FG>0THENPR I NT " MUlt " G " GOLD " 

338 GOSUE5000 

340 PRIHT"WRW"25~H 

350 IHPUTZ$:IJ*0 

360 I FZ*« " N " RNDR < E- 1 > =* 1 660RZ$* " S " RNDR < E+ 1 > « 1 66QRZ** 

" E " RNDR < E+ 1 > * 1 66THENU= 1 
362 I FZ$* " W " RNDR < E- 1 > ■ 1 66QRU* i THENPR I NT " S»BLOCKED CAVE " 

: FORT=1TO2000 : NEXT : GOTO350 
375 R < E > =46 : 1 FZ$* " N " THENE»E- 1 
380 IFZ**="8"THENE*E+10 
390 IFZ*="E"THENE*E+1 
400 IFZ*«"W ,, THENE"E-1 
405 IFZ*="F"THENGOSUB6000 
410 IFR«T.E>=*218THENGOSUB1000 
420 IFfl<:E>*77THENGOSUB2000 
430 IFfl<E)«81THENGO8UB3000 
440 IFfl<E>=36THENGOSUB4000 
450 H=H+1 : IFH=25THENQ*9 : GOTO9000 

460 FORT=RND < 1 > #40+ 1 30TO 1 77STEPRND < 1 > * 1 9+2 = P0KE36875 > T : FORW* 1 TOT : NEXT 
465 P0KE36876 , 200-T : NEXT : P0KE36875 , : P0KE36876 , 
470 GOTO250 

1000 PRINT" WW^StlflGIC! !" 
1020 FORU=1TO300 : PQKE36879, RND< 1 >#24+8 : P0KE36876, 

RND< 1 >* 10+240 : NEXT : P0KE36879, 29 
1025 POKE36876..0:|=l';E>*46 

1 030 E* I NT < RNIK 1 > #76+ 1 2 > : I FR < E > ■ 1 66THEN 1 030 
1040 RETURN 

2000 PRINT"SlflONSTER HERE" 
20 1 FORT- 1 TO 1 000 : NEXT 

2020 M=RNDC.n:iFM<.2THENPRINT"J!IfflIT RUNS RWflV = RETURN 
2030 PR! NT" WHIT'S SEEN VOU. . . " 
2040 FORT<= 1 TO 1 000 : NEXT 

2050 I FM> . 85THENPR I NT " WRNB FLEES " FORT= 1 T0999 : NEXT : RETURN 
2060 PRINT"WWRND ERTS VOU! ! " :FORT=1TO990 : NEXT = Q=9 : GOTO90O0 
3000 FOR J- 1 TO20 : PR I NTTRB i 5* J > ; " WBHORRORS ..." 

3020 FORU=230TO280STEP 1 '• P0KE36879 > RND < 1 > #24+8 : P0KE36876 , 1 00+U/3 
3025 NEXT : P0KE36879 , 29 = NEXT 
3040 PRINT"dmiMD»l>ilQUICK3RND! I" 
3045 POKE36876..0 
3050 FORT= 1 TO 1 000 : NEXT 
3055 Q*9 
3060 GOTO9000 

4000 FOR J* 1 TO20 ■ PR I NTTRB < 5# J > i " XMMfciERLTH ! ! ! " : FORT= 1 TO 1 0* J : NEXT • NEXT 
4010 K=INT<RNB<1>#100>+100 
4020 FORU* 1 TO 1 00 : P0KE36879 1 RND < 1 > #24+8 : P0KE36876 » 

RND < 1 > * 1 00+ 1 00 = NEXT : P0KE36879 > 2 9 
4025 P0KE36876,© 

4040 PR I NT " XDBPIDOLD WORTH * " K " ! ! " = G*G+K : FORT* 1 TO3000 : NEXT : RETURN 
5000 V=l 

5005 L»FKE+P<Y>> 

5006 IFLO46THEN5020 

5007 IFV<8THENV*V+i:GOTO5006 
5010 IFL*46THENRETURN 

5020 PRINT"WWnNEflRBV IS..." 
5030 IFL*166THENPRINT"N0 PRTH" 
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5840 
5050 
5060 
5078 
5080 

6000 
6010 

6020 

6030 
6040 

6050 

6070 
6080 
6090 
6100 
6110 
6120 

9000 

9010 
9015 
9040 
9050 

9060 
9070 

9080 
9090 



ARROWS" : RETURN 



=VT=E-10 
:VT*E+10 

JVT-E+1 

:YT-E-1 



I FL*2 1 8THENPR I NT " MAG I C " 

I FL-77THENPR I NT " MONSTER " 

I FL*8 1 THENPR I NT " QU I CK8 AND " 

I FL«36THENPR INT" GOLD " 

FORT*1TO3000 : NEXT : RETURN 

flR-RR-1 : IFAR*0THENPRINT"NO 

PR I NT AR " ARROWS " : 88=0 

INPUT"KWTO";S# 

I F8#= " N " AND A < E- 1 > =77THENSS= 1 

I FS$= " S " AND A < E+ 1 0> »77THENSS« 1 

I FS*= " E " AND A C E+ 1> =77THENSS* 1 

I FS*" " W " AND A < E- 1 > =77THENSS= 1 

I FSS«0THENPR I NT " NO LUCK " : G0T06 1 20 

PRINT"IHIT" 

FORT* 1 T0999 = NEXT : I FRND < 1 » . 3THEN6 1 1 

PR I NT " K I LLED " = A < VT > *46 = G*G+ 1 NT < RND < 1 > * 100 ) : G0T06 1 20 

PR I NT "WOUNDED" 

FORT*1TO3000 : NEXT '• RETURN 

IFQ*9THENGOTO9015 

PRINT"NO AIR LEFT" 

PRINT"WSWIWSURVIVED"H"MINUTES FOUND $"G"OF GOLD" 

A<E>=72 

FORJ*1TO100 

PRINTCHR$<A<J>>.; 

I F 1 0* I NT < J/ 1 > = JTHENPR I NT 

NEXT:IFQ*9THENEND 

RETURN 
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Tranquility Base 



Here is a short moon-landing simulation which, despite its simplicity, is good fun to play and 
will certainly give you a challenging task. 

You start off around 500 feet above the lunar surface, with a limited quantity of fuel. You 
control the descent of your craft by entering your choice of thrust by pressing the number keys. 
You have fairly tight limits within which to land safely. 

Running out of fuel before you reach the ground or hitting the ground at an unacceptable 
speed will cause you to crash. A minus velocity means you are falling toward the lunar surface. 
You may well start off climbing away from the moon, but its gravity will soon draw you down. 

Once you've mastered the program in its present form, you may wish to add a display, or 
modify the program in some other way. Giving yourself less starting fuel is a good way to make 
the program more difficult. F% is your fuel, V% your velocity, and H% your height. 
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READY. 



10 REM TRANQUILLITY BASE 

20 FX*130+RNDa>*40 

30 VX*-6+RND<r.l>*20 

40 HX*500-RND < 1 •> * 1 

60 PR I NT "IT 

70 PR I NT " XUUUM1FUEL : " FX 

80 PR I NT " WJWifitBv'ELOC I T V : " VX 

90 PR I NT " mnimilHiE I GHT : " HX 

100 GET RX:FQRJ-1TQ800:NEXTJ 

110 FX-FX-AX 

120 CX-RX-2 

125 AX 88 © 

130 HX*HX+VX+CX/4 

140 VX*VX+CX 

145 IFFX<1ANDHX<10THEN160 

150 IF HXM0THEN 60 

160 IFVX>-9ANDVX<8THEN 210 

170 PRINT" SWCRRSH! "# 

180 FORT«1TO300=NEXT 

190 GOTO 170 

210 PRINT"r«3REflT ^LANDING, SCHIEF" 

220 PR I NT: PR I NT "FINAL READINGS AS VOU" 

225 PR I NT "TOUCHED DOWN ON THE" 

226 PR I NT "LUNA SURFACE:" 
230 PR I NT : PR I NT " FUEL = " FX 
240 PR I NT " VELOC I TV : " VX 

READV. 



Lodestar/3-D Maze 



You are searching within a maze for the precious lodestar. At each point in the maze, you'll be 
told which directions from your current position are open. The display takes the form: 

MOVE NUMBER 1 

NORTH: OPEN 

SOUTH: WALL 

EAST: OPEN 

WEST: WALL 

LODESTAR INDICATOR READS 1 200 

DIRECTION? 

NORTH SOUTH EAST WEST HELP 
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You enter the initial letter of the move you wish to make. H (for help) gets you a view of the 
maze from above, with your position shown as a blue asterisk. But although you can see where 
you are within the maze, the lodestar is not marked. 

You will be pleased to see how quickly you start really visualizing the maze in three dimen- 
sions, and how you will be moving confidently through it. The maze changes from game to 
game, and the lodestar can be in one of three positions within it. Your score at the end depends 
on how few moves it took you to find the lodestar. Asking for help costs you a penalty of 1 5 
moves! As you become familiar with the game, you'll learn how to make the best use of the 
feedback from the Lodestar Indicator. 

If you have extra memory, and you feel particularly ambitious, you could add a 3-D display to 
show the view ahead of you after each move. Lines 550 to 580 determine which of the three 
positions will be used for the lodestar in the game. 

10 REM L0DESTAR/3-D MAZE 
20 GOSUB530 
30 GO8UB370 
40 M*M+1 

50 PRINT"rT , ;TflB<5>; M riOVE NUMBER "M 
70 PRINT"MiNORTH: "i 
80 IFA<D+1,E>*S THENPRINT"SIQPEN1" 
90 IFA<D+1,E>*X THENFRINT"WR-LL" 
100 PRINT"JWSQUTH: "; 
110 IF A<D-1,E>«S THENPRINT"aOPEHH" 
120 IF A<D~1,E>*X THEN PRINT"WALL" 
130 PRIHT"W§EflST: '»; 
140 IFA<D,E+1)«S THEN PRINT" fidPENB" 
1S0 IF A<D,E+1>*X THEN PRINT "WALL" 
160 PRINT"XBWEST: "; 
170 IFA<D,E-1>*8 THEN PRINT" aOPENl" 
180 IF A<D,E-1>»X THEN PRINT"WALL" 

1 90 PR I NT " XLODEST AR I NO I C ATOR " = PR I NT T AB < 6 > ; " READS " 1 00* < ABS < Z-D > 
+ ABS C V~E s > "> +V—E 

210 PRINT"OT»iMBnDIRECTIQN?S" 

211 PRINT"WSHK)RTH S8H0UTH BEWST SWKST 8HKLP" 
2 1 S GETA* : I FA$« " " THEN2 1 3 

220 IFA$«"N"ANDA<D+1,E>*XTHEN 215 
230 IFA*«"S"ANDA<D-1,E> -XTHEN 215 
240 I F A*» " E " AND A (. D , E+ 1 > -XTHEN2 1 5 
250 I F A$» " W " AND A < D > E- 1) *XTHEN2 1 5 
260 IF A**"H" THEN GOSUB370 
270 IFA*» H N" THEN D»D+1 
280 IF A** "8" THEN D-D-l 
290 IF Af« M E" THEN E»E+1 
300 IF A*«"W" THEN E»E-1 
310 IF Z*D AND V-E THEN 340 
330 t30T0 40 
340 PR I NT "YOU FOUND IT IN" 

350 PRINTTAB<5>; H a"M"l MOVES! ! ! " :FORJ»1TO100:NEXTJ:GOTO340 

370 REM HELP 

480 PR I NT " ^WlilS^JORTHS" : PR I NT 
418 F0RB*15T01 STEP-1 :F0RC«1T015 
420 F0RO1T015 
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439 IFR<B,C>«X THEN PRINT"l«r; 

435 IFB*B FIND C-E THEN PRINT "B#" ; -GOTO440 

436 IF fl<B,C>*S THEN PRINT'-flH"; 

440 NEXT: PRINT: NEXT 

470 PR I NT " MMMMMMflNSOUTHI" = PR I NT 

430 M=M+15 

490 FORJ*1TO2000:HEXTJ 

500 PRINT"n":R<D,E)*S 

520 RETURN 

330 BIMRa5,15> 

550 B=INT<RND<1>*3>+1 

560 Z=14:V=14 

570 IF B«2 THEN V-2 

580 IFB=3 THEN Z«2 

590 X-l=S-2 

610 F0RB-lT015'F0ROlT015 

630 fl<B.C>«X*-IF RNDCl».9THENfl<B,C>-S 

640 IF C<20RO140RB<20RB>14 THENR < B , C> *X 

650 NEXT: NEXT 

670 D=2:E=2 

69fd FORF«1T063 

700 REflBB = REP.DC 

719 fl<.'B,C)*8 

720 NEXT 

730 M«- 1 5 : F0KE36S79 , 25 

740 RETURN 

750 BflTR 2,2,2,3,2,4,2,5,2,6,2,7 

760 DRTR3, 7, 4, 7, 5, 7, 5, 6, 5, 5, 5, 4, 5, 3, 6, 3 

770 DRTR7, 3, 7, 4, 7, 5, 7, 6, 7, 7, 7, 8, 7, 9, 9, 8 

780 BRTR9, 9, 10, 8, 10, 7, 10, 6, 10, 5, 10, 4, 8, 8 

790 DRTR10, 3, 11, 3, 12, 3, 13, 3, 14, 3, 14, 2, 7, 10 

800 BRTR6, 10,5, 10,4, 10,3, 10,2, 10,2, 11,2, 12 

810 BRTR2, 13, 2, 14, 6, 11, 6, 12, 6, 13, 6, 14, 7, 12 

820 BRTR14, 12,8, 12,8, 14,9, 12,9, 13,9, 14, 10, 12 

830 BflTfil 1 , 9, 1 1 , 10, 11 , 1 1 , 1 1 , 12, 12, 9, 13, 9, 13, 10 

840 BRTR13, 11, 13, 12, 13, 13, 13, 14, 14, 14 
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VINCENT VAN VIC 



You control a red diamond using "A" (up), "Z" (down), "," (left) and "." (right) to draw out a 
picture on the screen. You can stop the moving diamond at any time by pressing any key except 
the four indicated. You choose the color you wish the computer to use by pressing the relevant 
color key. Pressing a color change key will automatically stop the diamond moving, so it is 
"drawing" in the new color when it is started again. 

The computer starts drawing in white, so it is invisible on the white background. You can 
therefore move the red "cursor" diamond to wherever you like before you start drawing. You 
can also move it anywhere on the screen during the course of a drawing, without leaving a line. 
Drawing in white can also be used to erase unwanted parts of the drawing. 



fl Z , . KEVS 

NUMBER OF THE COLOUR VOU WANT 

ANY KEY EXCEPT FOR CONTROL ONES 



10 REM VINCENT VAN VIC 

20 REM MOVE RED DIAMOND WITH THE 

30 REM TO CHANGE COLOR PRESS THE 

40 REM TO STOP CURSOR MOVING HIT 

30 PRINT"r3":GOSUB9540 

1 000 GETA$ : I FA** " " THENA**B* 

1005 1 F A*> " " AND A*< " 9 " THENU« V AL < A$ > - 1 

1010 E»C:T*8 

1020 I F A*« " . " THENS*S+ 1 : OC+ 1 

1 030 I F A$= " , " THEN8=8- 1 : C*C- 1 

1040 IFA$*"A"THENS*S~22:C«C-22 

1 050 I F A$= " Z " THENS-S+22 : C=C+22 

1 060 I FPEEK < S > ■ 1 02THENC-E : S-T 

1070 B$=A* 

1080 FORQ*1TO600=NEXT 

1200 POKEE.U 

1210 POKEC.2=POKES,90 

1230 GOTO 1000 

9540 S*7954 

9550 C*38674 

9560 B$a"" 

9590 FORZ»7630TO7701 = POKEZ, 102 = POKEZ+30720, = NEXT 

96QQ F0RZ*8 1 64T03 1 85 = POKEZ , 1 02 : POKEZ+30720 , = NEXT 

9620 FORZ*7680TO8 1 64STEP22 = POKEZ > 1 02 ■ POKEZ+30720 , 

: POKEZ+2 1 , 1 02 : POKEZ+3074 1 , = NE XT 
9630 U-l 
9640 RETURN 



CTRL. 






/ffsr&V/ 
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Monza 



Monza is a mind-reading mathematical wizard. You first think of a number between 1 and 63. 
Monza displays a series of numbers on the screen, and you press 'Y' if your number is among 
those displayed and 'NT if it is not. After several screens of numbers have been shown, with 
suitably magical sounds, Monza will tell you the number you thought of. This makes a good 
demonstration program to show the VIC off to your friends. 

10 REM MONZfl, MATHEMATICAL WIZARD 

15 B*="ir*3" 

20 X-.5-N-0 

30 F0KE36879,25 

40 PRINT'TJSIBrrHINK OF A NUMBER" 

45 PR I NT "BETWEEN 1 RND 63." 

50 PRINT"M«I WILL SHOW VOU FIVE" 

55 PRINT"SCREENFULL3 OF" 

60 PRINT "NUMBERS. IF YOUR" 

65 PR I NT "NUMBER IS ON THE" 

70 PR I NT "SCREEN, PRESS 'V TO" 

80 PRINT"TELL ME. IF IT IS NOT" 

85 PRINT TflB<8>; "PRESS 'N'. M 

90 PRlUvm WILL TELL VOU VOUR" 

95 PR I NT "NUMBER AT THE END" 

100 PRINT"BiSWWB>MiPRESS ANY KEV. . . " 

110 GET A*=IF A*="" THEN 110 

115 FRINT"3HS" 

120 PRINT"8I1 3 5 7 9 11 13 15 17" 

121 PRINT"W19 21 23 25 27 29 31" 

122 PRINT"W33 35 37 39 41 43 45" 

123 PRINT"SW7 49 51 53 55 57 59" 

124 PRINT TflB-r.8>j"W61 63" 
130 PRINT 

140 OOSUB 390 

150 PRINT'THPM" 

151 PRINT"2 3 6 7 10 11 14 15" 

152 PRINT: PRINT" 18 19 22 23 26 27 30" 

153 PRINT =PRINT"31 34 35 38 39 42 43" 

154 PRINT '-PRINTMe 47 50 51 54 55 53" 

155 PRINTTRB(8>;"TO9 62 63" 
160 PRINT 

170 GOSUB 398 

180 PRINT'TDSKI" 

181 PRINT"4 5 6 7 12 13 14 15" 

182 PRINT"M20 21 22 23 28 29 30" 

183 PRINT"W31 36 37 38 39 44 45" 

184 PRINT"M46 47 52 53 54 55 60" 

185 PRINTTRB<8>.;"»61 62 63" 
190 GOSUB 390 

200 PRINT'TRW" 
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201 PRINT'S 9 10 11 12 13 14 15 

202 PRINT"M24 25 26 27 28 29 30 

203 PRINT"W31 40 41 42 43 44 45 

204 PR I NT ")!146 47 56 57 58 59 60 

205 PRINTTP,B<8);"MS1 62 63" 
210 GOSUB 390 

220 PRINT"n««" 

221 PRINT" 16 17 18 19 20 21 22" 

222 PRINT"W23 24 25 26 27 28 29 

223 PRINT"W30 31 48 49 50 51 52 

224 PRINT"W53 54 55 56 57 58 59 

225 PRINTTFlBc:8>;"l!K0 61 62 63" 
230 GOSUB 390 

240 PRINT'TIWB" 

241 PR I NT "32 33 34 35 36 37 38" 

242 PRINT"W39 40 41 42 43 44 45' 

243 PRINT"W46 47 48 49 50 51 52' 

244 PRINT'MSBS 54 55 56 57 58 59' 

245 PRINTTflB<8);"M60 61 62 63" 
250 GOSUB 398 

260 POKE 36878,15 

270 FOR T*1T0255 

280 POKE 36876, T 

290 POKE 36876, 255-T/2 

300 NEXT 

310 POKE 36873,0 

320 POKE 36876,0 
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330 PRINT"MiVOUR DUMBER SWASH" N 
340 FORT* 1 TO4000 ■ NEXT : RUN 

330 X—X+X 

395 C**MID*<B*^ <. INT<RND< 1 >#3>+l ) , 1 > 

400 P0KE36878,15 

410 FOR T«100 TO 255 

420 POKE 36876, T-N*3 

430 NEXT T 

440 POKE 36878,0 

458 POKE 36876,0 

455 PR I NT 

460 PRINT C$"IF YOUR NUMBER IS" 

470 PR I NT "HERE PRESS 'Y', IF" 

480 PRINT "NOT, PRESS 'N'." 

490 GET A* 

500 IF A**"" THEN 490 

510 IF A*0"N" THEN N*N+X 

520 FOR T«l TO 500 

530 NEXT T 

540 RETURN 



Mento 



Mento is another mathematical mind-reading wizard. Just get your friends to follow the in- 
structions to be amazed, pressing any key after you have followed the wizard's wise words. 

10 REM MENTO 

15 POKE 36879, 8 •PRINT"*' 

20 OOSUB1020 

30 PR I NT "MULTIPLY YOUR AGE BY" 

40 PR I NT "TWO, THEN ADD FIVE" 

50 GOSUB1Q00 

60 PR I NT "NOW MULTIPLY THAT" 

70 PR I NT "BY FIFTY, AND" 

80 PR I NT "SUBTRACT 365" 

90 OOSUB1000 

100 PR I NT "NOW ADD THE AMOUNT" 

110 PR I NT "OF CHANGE IN YOUR" 

120 PR I NT "POCKET" 

130 GOSUB1000 

140 PRINT"NOW GIVE ME THE" 

150 PR I NT "NUMBER YOU'VE ENDED" 

160 PRINT"UP WITH" 

170 INPUTR:A«A+115 

180 BXffi/im 
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190 fl»R-BX#100 

200 PRIHT"VOU HR VE"R" CHANGE. " 

210 PR I NT 

220 PRINT"VOU RRE"BH"VERR3 OLD" 

230 END 

1000 GETfl* 

1010 IFfl*»""THENGOT01000 

1020 PR I NT "IT 

1030 PRINT"MHM" 

1040 RETURN 

RERDV. 



Flip 



Flip is an intriguing game, which provides quite a bit of mental stimulation. On a three-by- 
three grid are randomly placed solid (filled in) and empty circles. By flipping them (see the fol- 
lowing for an explanation of the flip), you have to end up with a single empty circle in the middle 
position and solid circles in the other eight positions. 

You can only flip a solid circle. You move by entering the number of the piece you wish to flip. 
Flipping a corner piece causes those adjoining it to change to their opposites (that is, a solid cir- 
cle opens up, an open circle solidifies). Flipping middle circle on one side changes the two on 
either side of it, and flipping the middle one changes the middle piece on all four sides. The piece 
you flip also changes. 

The number of moves you have taken so far is displayed. At the end of the game, the program 
will pause to tell you how many moves it took to solve it, and then you'll be given a new starting 
position. 

S REM FLIP 

10 M«0:Q»209:X«215 

20 FQRO1T09 

30 B*INT<RNB<l>+.5> 

35 R<C)*Q:IFB»0THENR<C>»X 

40 NEXTC 

50 GOSUB180 

60 N*»0 

70 F0RO1T09 

80 IFfl<C>*WTHENN-N+l 

90 NEXTC 

100 IFN«1RNBR<5>*XTHENGOTO270 
110 M«M+1 

115 PRINT'TtflOVE NO. "M: PRINT: PRINT 
120 PRINT"SWHICH ONE TO CHflNnE" 
1 25 GETfl* : I FR*« " " THEN 1 25 
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126 
130 
140 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
348 
330 
360 
370 
380 
390 

400 

410 
420 
425 
427 
430 
440 
450 
455 
460 
470 



IIBTII 
W 



"CHR*<R<1)>" "CHR*<R<2)>" "CHR*<f=l<3>> 
"6" "CHR*<P,<4>>" "CHRfCFKSJO" "CHR$<FK6/0 



■8" "9" "CHR*<fl<7>V' "CHRt^FKSV;" "CHR*<FK9>:> 



IN"M 



N=VflL<fl$> : IFN<10RN>9THEH125 

GOSUB310 

GOTO50 

END 

PRIHT'T]" 

PR I NT= PR I NT: PR I NT 

PRINT"!*" 1" "2" "3" 

PRINT 

PR I NT "Bi" 4" 

PRINT 

PRINT"»"7" 

PRINT 

RETURN 

PR I NT "SOLVED 

FORT*1TO5000 

NEXT 

RUN 

I Ffl < N > *XTHENRETURN 

IFN«1THENF<1>-2:F<2>-4:F<3>«S:F<4)-18 

IFN«2THENF<l)*r-F<2>«3:F<3> = 10:F<4>»10 

IFNa3THENF-r. 1 )»2 : F<2>*5 : F(3>fi = F-T.4>»10 

IFN-4THENF<l>«l:F<2>-7:F<3>-10:F<4>-10 

IFN«3THENF< 1 )»2 : F<2>-4 : F<3>»3 : F<4)«6 

IFNaSTHENF-r. 1 >*3 : F<2>*9 : F<3>-10 ■ F<4>*10 

IFN-7THENF< 1>«4 : F<2>*5 : F<3>-8 "• F<4>*10 

IFN-8THENFQ >*7 : F<2>»9 : F<3>*10 : F<4>»10 

IFN*9THENF<1>=8:F''2>=3:F<3>»6:F<4> = 10 

PQKE36878, 15 

F0RQ-1T04 

P0KE36879, 24+RNIK 1 ]>*8 

P0KE36875 , 1 30+RND < 1 > * 1 00 

I Ffl < F < G > > -XTHENfl < F < G > > -Q = GOTO430 

IFfKF<G>>-QTHENFKF<G>>«X 

NEXTG 

P0KE36875, = P0KE36873, 

FKN>=X 

RETURN 



Colormind 



jTM 



This, as you've probably guessed, is a color version of Mastermind'"". You have to guess the 
computer's pattern of four differently colored blobs. You indicate your choice of colors by press- 
ing the color keys on the VIC. 

The colors will first print up as the numbers you pressed, then change into blobs colored to 
your choice. Following the blobs will be your score, the first number being the correct color in 
the correct position, the second the correct color in the wrong position. You'll get ten tries to 
guess the numbers. Note that no color is repeated within the set of blobs. 
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If you're used to playing Mastermind™ with colored pegs, you'll quickly appreciate that this is 
much closer to the Invicta game than are computer versions that use numbers. At the end of the 
game, press any key to get a new game, or 'S' to stop. 

10 REM COLOURMIND 

13 PRINT'TJ": PRINT: PRINT 

20 GOSUB450 

30 C<l>*INT<:RNIKi>*6}+3 

35 Z*2 

40 C<Z>*INT<RNIKl>*6>+3 

30 J=l 

60 IFC<J>=CXZ>THEN35 

70 I FJ<Z- 1 THEN J* J+ 1 : GOTO60 

80 IFZ<4THENZ*Z+i:GOTO40 

100 FORH=1TO10:INPUTP 

130 F0RZ*1T04 

140 G<Z>-fl-10#INT<fV10> 

150 P,«INT<rV10> 

160 NEXT 

163 GQSUB510 

170 B*0:W»0 

190 F0RZ«1T04 

200 IFC<Z)OG<:Z>THEN230 

210 G<Z>»0 

220 B*B+1 

230 NEXT 

240 F0RZ*1T04 

230 IFG<Z>=0THEN300 

260 F0RJ-1T04 

270 IFC<ZX>G<J>THEN290 

280 W«W+1 

290 NEXT 

300 NEXT 

320 PRINT" - 1"B" WW 

370 IFB-4THEN1000 

380 NEXTH 

390 GOTO 10 10 

440 END 

450 r$s»" nahJiraTi" 

460 F0RB-3T08 

470 PRINTMID*<fl*,B,l>;B;"t "; 

473 IFB-5THENPRINT 

480 NEXT 

490 PR I NT "S": PR I NT 

500 RETURN 

510 PRINT'Tl"; 

515 F0RZ«4TQ18TEP~1 

520 PRINTMID$<R*,G<Z>,1>J"# "j 

530 NEXT 

550 RETURN 

1000 PRINT'WOU GUESSED IT!" 

1010 PRINT"WTHE CODE WRS:" 
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1815 PRIHT"W";TRB<5>; 

1029 F0RZ*4T018TEP-1 

1030 PRINTMID$<R$,C<Z>,1>;"# 
1040 NEXT 

1 050 GETfl* : I Ffl$= " " THEN 1 050 
1060 IFR*="8"THENENB 
1070 RUN 



Cannibal Charlie 



You get to play God in Cannibal Charlie. You specify how many cannibals there will be at the 
start of creation, and how many explorers. Your aim is to create a society that survives as long 
as possible. Too few explorers, and the society will die within a month or so. Too many ex- 
plorers, and they'll overwhelm the cannibals, again bringing things to halt within the first month. 
The program gives you a population reading at the end of each month. There is a "highest 
score" (i.e., longest survival of a particular society) feature, so you can try to out-God yourself. 
If you don't like the scenario, you can change it to foxes and rabbits, or any predator/prey com- 
bination you prefer. 

The variable FD (food, set in line 100) determines how many cannibals can feast on a single 
explorer. Although this does not change within a single series of games, it will be different each 
time you run the program from the beginning. 

10 REM CRNNIBRL CHARLIE 

20 PRINT'TWWflWELCOME TO CRNNIBRL WttiMCHflRLIE" 

30 PR I NT" MSI N THIS GAME VOU RRE S130BS, AND IT IS VOUR JOB TO 

SET UP THE" 
40 PR I NT "RULES FOR CANNIBALS AND EXPLORERS IN SUCH A WAV THRT 

THE SOCIETY"; 
50 PR I NT "LASTS FOR THE LONGEST POSSIBLE TIME. WMIPRESS 

RNV KEY WHEN" 
60 PR I NT "VOU 'RE REABY TO PLAY" 
70 GETA*:IFA$«""THEN70 
80 HI=0 
100 FB«RNB<0> 

110 PRINT'TWWBFINE. GOB. NOW HOW MANY CANNIBALS WILL WE"; 
120 PRINT"START WITH <<100>?" 
1 25 I NPUTCP s I FCP>99THEN 1 25 
170 PR I NT " IlCflNN I B ALS : " 
180 PRINT-'SPOPULATION: "CP 
190 CP*CP/3 

210 PR I NT "SHOW, THE!* EXPLORERS : KB" 
220 INPUT "POPULATION <<100)";EP 
225 IFEP>99THEN220 
230 EP^EP/S 

250 PRINT H MKW«WPLEASE STANB BY" 
260 GOSUB 1 000 : PR I NT " IT 
270 BA*0 ■• CS-CS/2 : ES*ES^2 
280 DA*BA+1 
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290 PRINT" aMWIQNTH " Dfl '• I FDR* 1 THEN300 

300 IFCP>EP/FDTHENCP*EP/FD 

3 1 CP*CP+ < (. 8*CP-CP#EP/3 > *FD > 

320 EP»EP+ < < 4*EP-EP*CP > * . i > 

330 PR I NT " MflKW" I NT < CP V CRNN I BRLS " 

340 PR I NT " WMKB" I NT < EP > " EXPLORERS " 

330 IFEP<2ORCP<2THEN390 

360 GOSUB1000 

370 GOTO280 

390 IFDR>HS THEN HS«Dfl 

393 IFCP<10REP<1THENFRINT":T 

400 PR I NT "WEND OF THE LINE, GOD" 

410 PR I NT "WITHE SOCIETY SURVIVED FOR "DP." MONTHS" 

420 PR I NT " OTIBERT SO FAR IS"HS 

430 • PR I NT" W INPUT 'V FOR fl NEW CRERTION, RNV OTHER KEV TO STOP" 

440 GETfi* : IFfl**" "THEN440 

430 IFR$*"V"THEN110 

460 PRINT ,I WBVE BVE, VOUR RLMIGHTVNESS" 

470 END 

1 000 FORV« 1 TO4000 = NEXT 

1010 RETURN 



Monte Carlo Molecule 



The general term "Monte Carlo Simulations" is given to those simulations that show the 
result of chance factors. Brownian motion and atomic diffusion are examples of random motion 
that can be emulated with a Monte Carlo simulation. In Monte Carlo Molecule, a molecule, start- 
ing at any position you designate on a ten-by-ten grid (we suggest you try 5,5 as your first one), 
works it way randomly around a small box until it happens to find its way to the bottom right- 
hand corner (coordinates 1 0, 1 0) counting the number of moves it took to get there. 

10 REM MONTECRRLO MOLECULE 

20 PRINT":!" :DIMfi<10, 10) :M*0 

23 GOSUB1500:REM START 

30 GOSUB300:REM PRINT 

33 IFP«=10RNDQ«10THEN33 

40 GOSUB1000:REM FIND R DIRECTION 

60 GOTO30 

500 REM PRINT 

503 R<P,Q>«209:M=M+1 

310 PRINT"»WW10VE NO. "M 

315 PRINT"MW" 

520 FORX*1TO10 

530 FORV=1TO10 

540 PRINTCHR*<R<X,V?>; 

350 NEXT: PRINT: NEXT 
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CTRL 



jjlk\/aht\/red\/cyn\/pur\/grn\/blu\/ velV^s 



VBmEIBm^fESw^f^fsE^ 




■ ffiVcm 1 






560 RETURN 

1000 REM DIRECTION 
fl<P,Q>*214 
0*0 

T»INT-CRNU<0)*85 
IFT*0THENQQSUB1100 
IFT*4THENGOSUB1120 
IFT*1THENGO8UB1200 



1010 

1015 

1020 
1030 

1035 
1040 
1045 

1050 

1055 

1060 

1065 

1070 

1080 

1100 

1105 

1110 

1115 
1120 
1125 
1130 
1135 
1140 
1145 
1150 
1200 
1205 
1210 
1215 

1500 

1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 



IFT-5THENOOSUB1130 

IFT*2THENGOSUB1110 

IFT*6THENGO8UB1140 

IFT«3THENGOSUB1210 

IFT«7THENGOSUB1150 

IFG*0THEN1020 

RETURN 

IFP>1THENP*P~1:Q»1 

RETURN 

IFP<10THENF»F+i:G*l 

RETURN 

I FP> 1 RNDQ> 1 THENP«P- 1 '■ Q«Q- 1 ■ G- 1 

RETURN 

IFP<10flNDQ<10THENF-P+l :Q«Q+1 :0«1 

RETURN 

IFF<10RNDQ>1THENP«P+1 '• Q-Q-l : 0-1 

RETURN 

RETURN 

IFG»lTHENQ*Q-i:G*l 

RETURN 

IFQ<10THENQ*Q+l:G*l 

RETURN 

REM STRRT 

FORX*1TO10 

FORV-1TO10 

R<X^V)«214 

NEXT : NEXT 

PRINT"nWWBIBMCO-ORDINnTES OF" 

INPUT "STRRT POSITION"; P, Q 

I FP< 1 ORP> 1 0ORGK 1 ORQ> 1 0THEN 1 550 

R<P,Q>209 

PR I NT "IT 

RETURN 
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Noughts and Crosses 



You are the red filled-in circles, the computer the inverse blue crosses. You just touch the 
number where you want to place a piece, and the VIC will do the rest. The computer will ignore 
any opening move that is not the center square (5). This program is based on one written by 
Stuart Roberts. 

10 REM NOUGHTS AND CROSSES 

12 REM 

13 REM AFTER PROGRAM BV STUART ROBERTS 
16 REM 

20 FOR A* 1 T09 : B < A ) ■ A : NEXT 

30 PR I NT "31" 

50 E»0:G3s=0 

60 N*0 

70 X a 4 

80 PR I NT "WHIP 

90 F0RA*1T09 

100 IFA*»XTHENX«X+3: PRINT: PRINT 

110 IFB(A>*0THEN320 

120 IFB<A>»10THEN350 

130 PRINTB<R); M ".: 

140 NEXT 

143 IFBC3>»10ANBB<6>«10ANDB<9>«10THENE»8 : GOTO160 

146 IFB<7)-10flNDB<8>-10flNDB<9>"'i0THENE-8 = GOTO160 

150 IFN-1THEN380 

160 IFE=8THEHPRINT:PRINT-PRINT" I WIN":GOTO730 

170 IFQ*3THENPRINT:PRINT:PRINT" IT'S A DRAW" =GOTO730 

180 PRiNT"»mmuirvouR move?" 

1 83 GET A* : I F A*= " " THEN 1 83 

187 Z«VAL<A*> 

190 IFB<ZX>ZTHEN183 

200 Q=Q+1 

210 IF2«11THENB<3)»10:GOTO60 

228 N*i:B<2>*0 

230 GOTO70 

240 FORA-CTOD 

250 IFB<A>*ATHENBCA)»10 

260 A-A+F 

270 NEXT 

280 GOTO60 

290 IFB<5>«3THEN20 

300 b>;d>*10 

310 GOTO60 

320 PR I NT "HI • ■••; 

330 P<A>=1 

340 GOTO 140 

350 PR I NT "S SKH n*" ; 

360 P<A>=4 
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370 GOTO 140 




330 G«0 




390 C»1-B»9:F=3 




400 GOSUB380 




410 r>3'B»7:FM 




420 GOSUB330 




430 B»9:F«2 




440 GO8UB580 




450 Cw2:B*8 




460 GOSUB580 




478 Oi:B*7 




488 GO8UB580 




490 D«3:F*0 




500 GOSUB580 




510 C-4=B=6 




520 GOSUB580 




530 C*7=B*9 




540 GOSUB5S0 




550 G*G+1 




568 IFG-5THEN60 




570 GOTO390 




580 E*0 




590 FORR-CTOD 




600 E«E+Pf.fl):fl«*fl+F 




610 NEXTR 




620 IFE*3THEN720 




630 IFG«0THENRETURN 




640 IFE-3THEN240 




650 IFG-1THENRETURN 




66Q IFE-2THEN240 




670 IFG*2THENRETURN 




680 IFE-5THEN240 




690 IFG-3THENRETURN 




700 IFE»1ORE«4THEN290 




710 RETURN 




729 PRINT: PRINT: PRINT" 


VOU WIN" 


730 FORT*1TO3000:NEXT 




740 RUN 





Sepulcher Organ 



Sounding like a mournful choir in full cry in a haunted house, this program lets you play the 
bottom row of keys of the VIC as though it is an organ. The notes corresponding to the keys are: 

C(Z), D(X), E(C), F(V), G(B), A (N), B (M), C (,) 

The note you've pressed will continue until you press another key. Touching any other key from 
those marked will stop the sound. RUN STOP will, of course, stop the program. 
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Here is TWINKLE, TWINKLE LITTLE STAR: 

ZZ BB NN B 

VV CC XX Z 

BB VV CC X 

BB VV CC X 

ZZBBNNBVVCCXXZ 

10 REM SEPULCHER ORGAN 

12 PR I NT" 3" 

15 DIMB<16>,C*<16) 

20 F0RA*1T016 

30 RERBBCfl>:RERBC*<fl) 

40 NEXTA 

50 BRTR135, "Z" , 147, "X" , 159, "C" , 165, "V" , 175, "B" , 183, "N" , 191 , "M" , 

195,"," 
55 BRTR225, "Z" , 228, "X" , 231 , "C" , 232, "V" , 235, "B" , 237, "N" , 239, "M" , 

240,"," 

60 P0KE36878,15 

79 GETfl* 

80 F0RR*1TQ8 

90 I FR$*C* <. R ) THENP0KE36876 , B < R > : P0KE36375 , B < fl > : P0KE36874 , B < R > : 

P0KE36S76,B<R+8> 
100 NEXTR 

110 1 FFt$m >< . " THENGOTO 1 50 
140 GOTO70 
150 POKE36876,0 
160 POKE36875,0 
170 POKE36874.0 
190 G0T078 



Speedway 



Drive your little car around the track under control of the joystick or keyboard ("A" = up, "Z" 
= down, "," = left, "." = right) at a choice of nine different skill levels. Your score is related 
both to the skill level and to the length of time you manage to keep your car going without hit- 
ting the boundaries of the track. 

There is a highest score feature, so you can compete against yourself in subsequent runs. 
Your current score is clocked up continuously in the top righthand corner of the screen. Once 
you're familiar with the game in its present form, change the racetrack (from line 8040) to one 
of your own design, or write a routine to produce a different racetrack each time you play the 

game. 

10 REM SPEEBWRV 

15 REM KEVBORRB VERSION 

20 H3«0 

30 GOSUB8000 s REM INITIALISE 

40 GOSUB520:REM MOVE CAR 

50 IFR»0THENGOTO40 

60 GOTO700:REM SMASH 
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100 REM NOISE 
110 P0KE36378,15 
1 20 P0KE36875 , RNB < > * 1 0+ 1 40 
130 FORT*1TO10*SK 
140 NEXT 
158 POKE36878.0 
160 POKE36875.0 
170 RETURN 
520 REM MOVE CRR 
530 GOSUB100:REM NOISE 
540 I FPEEK <, 7680+Cfi+22*CB > - 1 02THENR* 1 
560 POKE < 7680+Cfl+22*CB > , 35 
570 POKE < 38408+Cfl+22*CD ) > 4 
580 RE*CR:EB=CB 
590 GETR* 

600 I FR*» " " THENfl*=B* : G0T0628 

605 I FR*<> " fl " THEN I FR*<> " Z " THEN I FR*<> " , " THEN I FR*<> " . " THENfl** " 
620 I Ffl*» " fl " RNBCB>2THENCB*CB- 1 
630 I FR** " 2 " RNBCB<22THENCB»CB+ 1 
•RNBCR>1THENCR»CR-1 

' RNBCfl<20THENCfl*CR+ 1 



648 IFfi**% 
650 IFfl$=". 
B$*R* 



656 SC-SC+1 

66Q POKEf.38400+RE+22*EB>.. 1 

698 RETURN 

700 REMCRRSH 

710 P0KE36878.15 

728 FORV*150TO250STEP5 

730 P0KE36877,V 

740 FORT= 1 TOV/5 : NEXT 

750 NEXT 

760 P0KE36873 , : P0KE36377 , 

765 SC=SC*<10-SK) 

770 PRINT"»MiKWWVOU SCOREB"SC 

730 IFH8<8CTHENHS«SC 

790 PRINT"WaiiiiHIGH SCORE IS"HS 

800 FORT« 1 TO2000 : NEXT 

810 GOTO30 

8000 REMINTIRLISE 
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8005 


PR I ht "rr 








8010 


fl*0:REM CRASH FLRO 






8012 


QOSUB9000 








8013 


SC«0:REM SCORE 






8020 


Cfl»2 : CD»3 : REM START I NO PC 


JSITION OF 


CRR 


8030 


B*»"." - 








8040 


?R\\u"mmmmmmmmmmmmm" ; 




80S© 


pRiNT"n«asgs 


mm m"> 




8060 


PR I NT" 1888888 


m m 


m"; 




8070 


PRINT"*8 




25 Kv .» 




8080 


prints mm 


88"; 




8090 


PR I NT "i^ 




SW j 




8100 


PRINT"i8$ 


m mm 


!88f"; 




8110 


PRINT"^^ 


W& W88& 


288"; 




8120 


pr i nt "mm 


mm mi m 


^8"; 




8130 


PRIHT"i8» 


tfillHTifUlWi UMMi (Mitt 


m"i 




8140 


PRINT"!8& 




Wi 




8130 


PRINT"H88? 


$S$88?- $ s$8 


888 .> 




8160 


PRINT"i88i 


^^? 8S W& 


S888"; 




8170 


PR I NT "m 


w& mi 


i»"; 




8180 


PRINT"!® 


m m 


WW"; 




8190 


print"* m m 


S8888"; 




8210 


PR I NT n m 


m 


S8888"; 




8220 


PRiHT'mm 


******* HUHi 


88881"; 




8230 


PftlWT"mMW 


$18 8S$ 


1888?"; 




8240 


PRWT"mmm 


i883 


888"; 




8250 


pr i nt "mm 


I8PI 


I8»"; 




8260 


PRINT"i8&88S8l 








83Q0 


RETURN 






9000 


PRINT'TjaWKMBENTER VOUR SKILL" 




9010 


PRINT"KLEVEL U TO 9>" 






9020 


GETB*:SK*VRL<B*> 






9030 


I FSK< 1 ORSK>9THEN9020 






9040 


RETURN 









10 REM SPEEDWAY 

13 REM JOYSTICK VERSION 

20 HS«0 

30 GOSUB8000 

520 P0KE36878.15 

322 FORT* 1 TOSK ■ P0KE36876 .. 1 30+ 1 0*T = NEXT 

325 POKE36878,0:POKE36376;0 

540 I FPEEK < 7680+CR+22#CD > = 1 02THEN A* 1 

560 POKE < 7680+CR+22*CD > > 35 

570 POKE<38400+CR+22*CD>,1 

380 RE«Cfl:ED«CD 

590 GOSUB2000 

600 IFX«0THENX*B 

620 IFCD>2ANBX-22THENCD»CB-1 

630 IFCD<22ANDX*-22THENCD*CD+1 

640 I FCfl> 1 ANBX* 1 THENC A»C A- 1 

650 IFCA<20ANDX=~1THENCA*CA+1 
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655 

656 

em 

690 
710 
720 
730 
740 
750 
760 
765 
770 
7S0 
790 
800 
810 

2000 
2010 

2020 
2030 

2040 

S000 

8005 
8007 

8010 

8012 
8015 
8020 
3030 
8840 
8050 
8060 
3070 
8080 
3090 
8108 
8110 
8120 
8130 
8140 
8150 
3160 
8170 
8180 
8190 
8210 
8220 
8230 
3240 
8250 
3260 
8265 
3270 



B*X: IFX*22THENX=~22 

SC*SC-X = PR I NT " iB" SC* <. 1 0-SK > 

POKE < 38400+ AE+22*EB> . 

IFA*0THEH520 

F0KE36378, 15 

FORV= 1 50TO250STEP5 

P0KE36877.V 

F0RT*lT0'iV5:NEXT 

NEXT 

P0KE36878, : P0KE36377, 

SC*8C*<10-SK> 

PRINT"a*iKWVOU SCORED "SC 

IFHS<SCTHENHS*SC 

PRINT"3«BliiHIGH SCORE IS"HS 

FORT«1TO2000:NEXT 

GOTO30 

POKEDD ,127 = S3*- < <. PEEK < PB > AND 1 28 ) *0 > : POKEDD .. 255 

P»PEEK < PR > : S 1 ■- < < P ANB3 > =»0 > : 82= <. < P ANB 1 6 > *0 > : S0« < < PANB4 > »0 ) 

FR— < < PRNB32 > =0 > : X*S2+S3 : V-SO+8 1 

X*-JS<X+1/t'+1> 

RETURN 

REM I NT I PL I SE 

PR I NT "T 

P0KE36879,8 

fl*0:REM CRASH FLAG 

GOSUB9000 

SC*0:REM SCORE 

CA*2 : CB»3 - REM STARTING POSITION OF CAR 

B— 1 

pr i nt " ^mmmmmmmmmmmm" ■> 

PR I NT "WW 

print"**** 

PRWT"m 

PR I NT "* 

PR I NT "IN 

PRINT"** 

PR I NT "MOW 

PR I NT" WWII 

PRINT "18888 

PR I NT n m 

PRINT"!S*3 

PR I NT "MR 

PR I NT "m 

PRINT"* 

PRINT"* 

PRINT"** 

PRINT"*** 

PRINT"***** 

PRINT"***** 

PRINT"*** 

PR I NT " <<888t***********3Jg888888888»'' > 

IFHSO0THENRETURN 

B I M JS < 2 , 2 > = P0KE37 1 39 , : BB*37 1 54 : PA-37 1 37 : PB-37 1 52 



* 
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8280 FQRT-BT02 ' FOR J=0TO2 ■ RERB J5 (. J > T ) • NEXT J > T 

8290 DRTR0, -22, 0,-1, 0,1,0,22,0 

8500 RETURN 

9000 PRINT-'SWOWMWiEMTER YOUR SKILL" 

9010 PRINT-JWiLEVEL <1 TO 9>" 

9020 GETB*:8K*VRL<:B*> 

9030 IFSK<1ORSK>9THEN9020 

9040 RETURN 

RERDV. 



Battle 



In this board game, which is somewhat like checkers (except for the size of the board and the 
method of capture), you are the bottom of the screen playing up, and the computer is at the top 
playing down. 

The computer always has the first move. The aim, as in checkers, is to capture your oppo- 
nent's men, but unlike checkers you capture by landing on a piece, rather than by jumping over 
it. You move by responding to the prompt FROM? with the number across the bottom of the 
square you wish to move from, then a comma, then the number along the side. You do the same 
for the "to" square. A move, then, might be: 

FROM? 6,2 
TO? 5,3 

The winner is the first player to capture six of the opponent's pieces. Battle was written by 
Chris Callender, of Cove, Helensburgh. 



5 REM BATTLE - CHRIS CRLLENDER 
10 DRTfi" 881 234567898" 
20 BRTR"l«g»ig»m!£tl" 

30 VF\TFi"2mmm%m%i2" 

40 BRTR"3»8W8S gSti*3" 
50 BRTR"4$ ®. m® m n 
68 DRTR"5 X S 1 S S" 
70 HF\TF\" Gmmmmm" 

80 iMTWT^mmmm?" 
90 BFiTwemmmmm" 

100 DRTR"m 2345678918" 
105 HSe0--CS»9 
110 BIMS$a2,13> 
120 FORR*1TO10 
130 RERDB* 

140 F0RB*1T01 1 = S*<fi, B>*MIB$ <B*, B, 1 > • NEXTB = NEXTR 

141 IFINT<RNB<n + .5)*0THEN145 

142 S*<5,5)»"t":S$<5,7>=" " 
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1 45 P0KE36879 , 25 : PR I NT " 3" 

150 GOSUB 1130 

155 PRINT: PRINT: PRINT 

1 57 I FC8»6THENPR I NT "I WIN!!": STOP 

160 INPUT"FROM";fl,B 

170 INPUT"TO";C,B 

1 80 I FRBS < fi-C > ■ 1 RNBRBS < B-B > * 1 THEN220 

190 PRINT" ILLEGAL MOVE" =GOTO160 

220 XF8*<C+l,D+l>-t»THENH8*HS+l 

230 8*<fl+l,B+l>»" ":8*<C+1,B+1>*"*» 

240 GOSUB1130 

245 PRINT: PRINT: PRINT: PRINT" 

247 IFH8*6THENPRINT"Y0U WINN": STOP 

250 R** " * " : GOSUB 1 000 

260 IFFL-1THEN300 

270 R*»" ": GOSUB 1000 

300 S*<E,F>«" " 

305 I FS* < E+G > F+H > * " * " THENC3*C8+ 1 

310 S*<E+G,F+H>*"§" 

320 GOTO 150 

1000 M E*2 : F«2 = G»0 : H»0 

1010 FL«0 

1020 IF3$<E,F)O"t"THEN1100 

1 040 I FS* f. E+ 1 , F+ 1 > *fl*THENG« 1 : H* 1 

1 050 I FS* < E+ 1 , F- 1 > «fl*THENG* 1 : H— 1 

1 060 I FS* C E- 1 , F+ 1 > -fWTHENO— 1 = H- 1 

1 070 I FS* (. E- 1 > F- 1 ) *fl*THENG«- 1 = H«~ 1 

1080 I FGO0flNDHO0THENFL= 1 : RETURN 

1 1 00 E*E+ 1 : I FE> 1 0THENE*2 : F«F+ 1 

1110 IFFM1THENRETURN 

1120 GOTO1010 

1130 PRINT"iS8" :FORR«1TO10: PRINT :F0RB«1T011 

1140 PRINT"S"J :lFS*<R.B>a"*"THENPRINT"rai": 

1145 IF8*<R,B>»"8"THENPRINT"i".; 

1 150 IFS*<R, B:>«"*"THENPRINT"$I",; 

1155 PRINT8*<:fl,B>; 

1160 NEXT: NEXT 

1 170 PRINT : PRINT ■ PRINT" SflflE ■ "CS; " VOU : "HS""** " 

1180 RETURN 



: PR I NT" 



CTRL 



8 >« V" vht V red \/cyn\/ pur \jorn\Jblu\/ velU^Voff' 



'cmVfiiT 






yeesroRF/ 



/ffi#\/fflD 



134 



Reverse 



In this brain-boiler, the computer randomly mixes the numbers from zero to nine, and you have 
to put them in order in as few 'reverses' as you can. I'll explain what a "reverse" is. If the com- 
puter had generated the sequence 5924861703 and entered 1 in response to the question 
"REVERSE NUMBER?", the sequence would be reprinted as 3071 684295. Entering 4 would 
then produce 3075924861 . That is the digits from position four to the end would be reversed. 
As you can see from line 1 70, the sequence the computer is looking for is 01 23456789. Get 
the numbers in that order and the game is over. It may well take you 40 or so moves to order the 
digits, unless you're particularly clever— or lucky. 

10 REM REVERSE 

20 M*l-X*0'-fl$="":PRINT":]" 

30 FORT=0TO9 

40 L*INKRNDa>*10>+48 

50 Q=l 

60 IFMID*<FI*,Q, 1>*CHP.*<L)THEN40 

78 IFGKT THENQ=Q+l:GOTO60 

30 r$=r$+chr*<:l> 

90 NEXT 

1 00 PR I NT " WW*10 VE NO . " M = PR I NT " W" ; P.* ; " W 

110 1 NPUT " REVERSE NUMBER " ; R = I FR< 1 0RR>9THEN 1 1 

120 B*="" 

13© FORT=10TOR8TEP-1 

140 B$=B$+MID$<P.*,T,1> 

150 NEXTT 

160 fi*=LEFT*<fi*,R-l>+B$ 

170 IFP,*="0123456739" THEN 190 

180 M*M+1 -GOTO 100 

198 PRINT"MMMSfi'0U DID IT!!" 

195 PRINT"W"fl$ 

200 PR I NT "WIT T00K"M" MOVES" 



Space Fighter 



You pilot your V-wing space craft across the void, trying to hit the numbers that appear at ran- 
dom on the screen. You must be quick, for they only stay there a short time. Your score is 
related to the number you run over. The sound effects and the appearance of the V-wing are 
very effective, and you may well wish to use these in other space fight programs you write. 

As usual, you control your ship with "A" (up), "Z" (down), "," (left), and "." (right). 
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10 REM SPACE FIGHTER 
15 HS=0 
20 RESTORE 
25 GOSUB9490 

1 000 GETfl* : I Ffi*« " " THENfi$=*B* 
PRINT"3*ilSCORE"SC 



1005 
1010 
1020 
1030 

1040 



1060 
1070 

1075 

1080 

1086 
1087 

1090 

1100 

1200 

1210 
122© 
1230 

3000 
3010 

3020 
3030 
3035 
3040 
3050 
9490 
9540 
9550 
9570 
9590 
96m 
9620 

9625 
9630 
9640 



9GGB 
9665 
9670 
9680 
969Q 
9700 
9710 
9720 
9999 



E*C:Q=S=V1=V 

I Ffi$« " . " THENS*S+ 1 : OC+ 1 : V=62 

IFfl$=" , "THENS*S-1 : OC-1 = V=60 

IFfl*="R"THENS=8~22 : C*C-22 : V*l 

IFn$="Z"THEHS=S+22 : C=C+22 : V=22 

W=PEEK<S> 



/-Vl 



IFW=102THENOE:S=Q 
F*0 

IFW>48THENIFW<58THENSC*SC+W*791 : F=l : P0KE36878, 15 : P0KE36877 . 

IFF=1THENF0RT«135T023© = P0KE36875, T : NEXT : P0KE36S75, 8 

PGKE36878 ., ? ■ P0KE36877 , 2*RSC < Rf > +70 

I FRND < » . 93THEHP0KEC (. CO , 9 = POKEB < CC > , 48 = COCC+ 1 : POKEB < CC > , 

n'XC>:P0KEC<CC>,7 

IFCC«55THEN3000 

POKEE..0 

P0KEC,7:pQKE8,V 

B$«fi$ 

GOTO 1000 

pRiNT ,, MKw>iia^rririE is up" 

PRINT ,, *W»lflWi'OU SCORED "SC 

IFH8<8CTHENHS=SC 

PRINT"'Ul»ISliHIGH SCORE: "HS 

P0KE36378,8 

FORT=1TO3000:NEXT 

GOTO20 

PRINT":]" 

8*7726 

C=38446 

B$*"." 

FORZ=7702TO7723 : POKEZ, 102 = POKEZ+30720 , 7 : NEXT 

F0RZ*8164T08185 : POKEZ, 102 : POKEZ+30720, 7 : NEXT 

FORZ-7680TO8164STEP22 : POKEZ, 102 : POKEZ+30720, 7 : POKEZ+21 , 

1 02 : POKEZ+3074 1 , 7 : NE XT 

IFHSO0THEN9640 

Binfl<55> , B<55> , C<55> 

F0RZ*1T055 

fi<Z>=INT<RND<0>*9>+49 

B < Z > *7704+ 1 NT < RNB <. 8 > *453 > 

C<Z>=B<Z> +30728 

I FPEEK < B < Z > > a 1 02THEN9660 

NEXT 

CC=1 

V=60 

SC*0:IFHS=0THENHS=1 

P0KE36879, 10 

RETURN 
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Zodiac Fortune Teller 



Zodiac Fortune Teller, written by A.G.T. Stevens, uses a question-and-answer method to get 
the VIC to earn its keep providing sideshow entertainment. The results should not be taken too 
seriously. 

5 PRINT"T 

10 GOSUB 840 

20 PRINT 

30 PRINT"r*IILL YOU PLEASE " 

40 PRINT" TELL ME YOUR NAME" 

50 INPUT A* 

60 PRINT"T 

65 00SU6 840 

67 PRINT 

70 PR1NT"STHANK YOU ";A* 

80 PRINT 

90 PRINT"a«ILL YOU NOW PLERSE" 

100 PRINT" TELL ME YOUR BIRTHDAY" 

110 PRINT 

120 PRINT"ICIVE ME 4 NUMBERS" 

130 PRINT 

148 PRINT"B10NTH FIRST" 

150 PRINT" 01<JAN>-12<DEC>" 

160 PRINT 

170 PRINT" FOLLOWED BY DAY" 

180 PRINT" 01 - 31 

190 INPUT B 

200 PRINT"T 

210 GOSUB 840 

220 J>RINT 

225 PRINT"3 YOU WERE BORN UNDER" 

230 PRINT" THE SIGN OF -" 

240 PRINT 

250 IF B>*0101 AND B<«0120 OR B>«1223 AND B01231 THEN PRINT" CAPRICORN" 

260 IF B>»0121 AND B<«0219 THEN PRINT" AQUARIUS" 

270 IF B>«0220 AND B<«0321 THEN PRINT" PISCES" 

280 IF B>«"0332 AND BO 420 THEN PRINT" ARIES" 

298 IF B>*0421 AND BO0521 THEN PRINT" TAURUS" 

300 IF B>»0522 AND B<* 0621 THEN PRINT" GEMINI" 

310 IF B>»0622 AND BO0723 THEN PRINT" CANCER" 

328 IF B>«0724 AND B<=0823 THEN PRINT" LEO" 

330 IF B>0824 AND BO0923 THEN PRINT" VIRGO" 

348 IF B>0924 AND BO»1023 THEN PRINT" LIBRA" 

350 IF B>1024 AND B<-1122 THEN PRINT" SCORPIO" 

360 IF B>»1123 AND B01222 THEN PRINT" SAGITTARIUS" 

370 PRINT 

380 PRINT"SHALL I TELL" 

390 PRINT»YOUR FORTUNE ";A*;"?" 
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EVERYBODY" 



400 PRINT 

410 PRINT" PRESS Y OR N" 

420 INPUT C* 

430 IF C*="Y"THEN PRINT"T 

431 IF C**"Y"THEN OOSUB 840 
440 IF C**"N" THEN GOTO 829 
430 PRINT 

468 J=INT<10*RND<1))+1 

470 IF J=l THEN PRINT"BITCHY PflLM?fl CASH WINDFALL COULD BE DUE" 

480 IF J-2 THEN PRINT"3BEWRRE!fl FINANCIAL DEAL COULD LOSE YOU MONEY" 

490 IF J»3 THEN PRINT"BAN ACQUAINTANCE MAKES ATTRACTIVE PROPOSAL BE CAREFUL! 

500 IF J«4 THEN PRINT"SINVEST SPARE MONEY WISELY" 

510 IF J=5 THEN PRINT"aRVOID INDECISION STICK TO EXISTING PLANS" 

520 IF J«6 THEN PRINT'^OU ARE ENTERING A SUCCESSFUL PHASE" 

530 IF J=7 THEN PRINT"8IMP0RTANT TO KEEP ON GOOD TERMS WITH 

540 IF J=8 THEN PRINT"aflMBITIOUS PLANS COULD BE IN YOUR FAVOUR" 

558 IF >9 THEN PRINT"SIF YOU HAVE PREVIOUSLY FAILED-TRY AGAIN" 

560 IF J»10 THEN PRINT"WEW INTERESTS COULD BRING FRESH BENEFITS" 

570 FOR T«l TO 150: NEXT t 

580 PRINT 

590 K=INT<10*RND<1))+1 

680 IF K*l THEN PRINT"ICERTAIN PEOPLE MAY BE 

618 IF K«2 THEN PRINT-'HAVOID EMOTIONAL 

620 IF K«3 THEN PRINT"IIRN INTERVIEW OR MEET- 

630 IF K=4 THEN PRINT"IISOCIAL LIFE COULD 

640 IF K»5 THEN PRINT"HA BUSY MONTH AHEAD IS 

650 IF K=6 THEN PRINT"INOT AN ENERGETIC MONTH AHEAD BUT TRY TO VARY 

TIES" 

66Z IF K=7 THEN PRINT"H1AKE SURE YOU ARE NOT CAUGHT OFF GUARD 

ONTH" 

670 IF K=8 THEN PRINT'WOU MAY NEED HELP FROM CLOSE CONTACTS" 

688 IF K=9THEN PRINT"IFALL IN WITH OTHERS ARRANGEMENTS" 

699 IF K«10 THEN PRINFHSOME KIND OF FAMILY REUNION COULD TAKE 

700 FOR S=l TO 150: NEXT s 
710 PRINT 
720 



ANYTHING BUT HELPFUL" 

ENTANGLEMENTS" 

-ING COULD BRING MORE 

PROVIDE MORE VARIETY" 

INDICATED" 



SECURITY" 

YOUR ACTIVI 
LATER NEXT M 

PLACE" 



L*INT<10*RND<1>)+1 
730 IF L«l THEN PRINT"RFRESS ON WITH OUTDOOR 
740 IF L»2 THEN PRINT"W>LANETARY INFLUENCES 
750 IF L=3 THEN PRINT"S(RN OPPORTUNITY WILL 
ON" 

762 IF L=4 THEN PRINT"RfTHIS MONTH IS FAVOUR- 
770 IF L=5 THEN PRINT"!*TESTING TIME AHEAD 
780 IF L*6 THEN PRINT"!*BE FASHIONABLE BUY 
790 IF L=7 THEN PRINT'-JITRY TO CUT DOWN ON 
EMS!" 

800 IF L=8 THEN PRINT"«SUPERIORS COULD BE 
US" 

818 IF L=9 THEN PRINT"!* FRIEND MAY HAVE 
820 IF L»10 THEN PR I NT "NOFFERS OF HELP MAY BE 
825 END 

829 PRINT"T 

830 PRINT "3RLL RIGHT THEN ";A*;" BYE BYE" 



ACTIVITIES" 

FAVOUR TRAVEL" 

ARISE GIVE IT CAREFUL 



-ABLE FOR AGREEMENTS" 
BE PREPARED!" 
A NEW OUTFIT" 
INESSENTIALS OTHER- 
DIFFICULT BE FIRM 

PROBLEMS TRY TO BE 
REFUSED-PERSIST YOU 



CONSIDERATI 

-WISE PROBL 

BUT COURTED 

HELPFUL" 
ARE NEEDED" 
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I" 



831 END 

840 PRINT TAB<3>;"« 1" 

850 PRINT TflB<3>;"« IMaifflCIRW *Z!»SIDHiaFMIC 

860 PRINT TAB<3>;"I I" 

870 PRINT TflB<3>;"liF!»!iRHTSlJ*)iE OTIIEiLSL««R I" 

888 PRINT TAB<3);"i 1" 

890 POKE 36878,15 

900 FOR L=l TO 180 

910 POKE 36876, INT<RND<1)*128)+128 

920 FOR M=l TO 10 

938 NEXT M 

940 NEXT L 

950 POKE 36876,8 

96* POKE 36878,8 

970 RETURN 

READY. 



Engulf 



In this game, you are moving about (most musically, as you'll hear) trying to avoid being 
trapped by the colored blocks the computer is placing on the screen. You have to keep moving 
as long as you can. Eventually, thanks to the clever VIC, you become engulfed by blocks and 
will not be able to move any more. You'll be given a score related to how long you managed to 
remain free. 

Your movements are controlled by the same keys as in Zombie Island— "A" = up, "Z" = 
down, "," = left, and "." = right. 

10 REM ENGULF 

20 GOSUB9430 

30 SO0:REM SCORE 

1000 GETfl*:iFfl*« H,, THENfl*-B* 

1010 E*C=QwS 

1 020 I FFl$* " . " THEMS=S+ 1 : C*C+ 1 : N« 1 93 

1 030 I Ffl$= " , " THENS»8- 1 : C*C- 1 : N-207 

1 040 I Ffl*= " fl " THEN8=S~22 : C=C~22 : N*2 1 5 

1 050 I FR$« " Z " THENS-S+22 = C=C+22 = N-225 

1060 W«PEEKC8>sF«»0 

1 070 I FW* 1 02THENC-E : S*Q 

1 075 I FPEEK i Q+22 > * 1 02THEHF=F+ . 25 

1076 IFPEEKCQ-22>=102THEHF=F+. 25 

1 077 I FPEEK < Q- 1 > - 1 02THENF*F+ . 25 

1 078 I FPEEK < Q-+ 1 > ■ 1 02THENF-F+ . 25 
1090 IFF-1THEN2080 

1100 SC*3C+1 

1110 H»7680+INT<RND<0>*484> : IFPEEK<H>=102THEN1110 

1 1 20 J*H+30720 : POKEH ,102 

139 



1130 n*INT<RND<0>#7>:iFM*lTHEM1130 

1140 POKEJ.M 

1 1 50 P0KE36874 .. N = PQKE36875 , N+ 1 

1200 POKEE.l 

1210 P0KEC,2:P0KE8,216 

1220 B$=R$ 

1230 GOTO 1000 

2000 POKE36876,0 

2010 PRINT"aWWRWBiiiHI-'VE GOT VOUM" 

2020 PR I NT " ISBMmHQU SCORED " SC#236 

2030 GOTO2030 

9490 PR I NT "IT 

9540 S»7954 

9550 C*38674 

9570 B**"." 

9590 FORZ=7680TO7701 = POKEZ, 102 : POKEZ+30720 . 2 : NEXT 

9600 F0RZ=8 1 64T08 1 85 : POKEZ , 1 02 : POKEZ+30720 , 2 : NEXT 

9620 FORZ*7680TO8 1 648TEP22 : POKEZ , 1 02 : POKEZ+30720 , 2 : POKEZ+2 1 , 

1 02 = POKEZ+3074 1 , 2 : NE XT 
9630 P0KE36878.15 
9640 RETURN 



Reaction 



Your reactions come under scrutiny in this program which uses double-height characters. 
When you run the program, you'll see the words STAND BY appear. Then the screen will clear, 
and after a random time, the words OK NOW PRESS THE SPACE BAR will appear. You must hit 
the space bar immediately. If you do so within the time limit, the words HEY YOU DID IT come 
up on the screen, and the process will start again. However, the time available to you to react 
will decrease. 

The process will continue, with you being given a shorter and shorter time to react each time, 
Eventually you will fail, and a "reaction rating" (LOUSY, FAIR, PRETTY GOOD, VERY GOOD, or 
YOU'RE THE CHAMP) will be given, depending on how short the time of your last successful 
reaction was. 

10 REM REACTION 

15 DIHR$<4> 

20 PR I NT "IT 

38 GOSUB9000 

40 fl$s"fcWHa»li»ISTfiNB*IBY" 

50 B*B"MRPKkNOUIiPRESSIiirHE»>iiiePRCE»BnP" 

60 B$="l«»WHE , T l nrT , GU»IBIBMIT" 

70 Q=50 

980 PR I NT" ITS" fi* 

985 FORT= 1 TO500 : NEXT 

99B FORT=1TO100+RNDC:0>#400 
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992 I FRHD < » . 99THENPR I NT " IT 

995 NEXT 

1 000 GETF* : I FF*<> " " THEN 1 000 

1010 PRINT M m"B* 

1020 E=TI 

1030 GETF$ : I FF*« " " THEN 1 030 

1040 G-TI-E:PRINT ,, ai M 

1050 IFG<Q+1THENPRINTD* 

1060 IFG>QTHEN1120 

1 070 FORT* 1 TO2000 : NEXT 

1075 Q-Q-INT<RN»<«>*5+2> 

1 080 GETFf : I FF*<> " " THEN 1 080 

1090 GOTO980 

1120 PRINT " 31 " 

1 1 25 I FQ>40THENPR I NT " XDOttLOUSV " 

1 1 30 I FQ<4 1 PNDQ>30THENPR I NT " WKiiFfl I R " 

1 1 40 I FGK3 1 flNDQ>20THENPR INT" MWWFRETT V W300D " 

1 150 IFia<21flNDG>10THENPRINT"'l!l^ERVIiS3CiOD M 

1 1 60 I FQ< 1 1 THENPR I NT " MMVOURE»rTHE*CHRMP " 

1180 FORT*1TO1000:NEXT 

1190 PRINT M 3aWe!WW»!^W*I ,, 

1 200 PR I NT " NEWMGfiMEMCOM I NGBBJP " 

1210 FORT= 1 TO5000 = NEXT 

1220 GOTO70 

9000 P0KE56 , 28 : P,=32776 = FORB-7 1 84TO7600STEP2 

9005 POKEB , PEEK < fl > : POKEB+ 1 , PEEK < H > 

9007 fl*fl+l:NEXT 

90 1 P0KE36879 > 25 :' P0KE36869 , 255 

9015 P0KE36867.47 

9020 RETURN 
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Spacetrek 



You are in command of a galactic probe ship, responsible for the safety of a ten-by-ten sector 
of space, containing the Antares, Procyon, Rigel, Vega, Canopus, Altair, and Sagittarius sectors 
of the known galaxy (see lines 8540 to 861 0). This area of space contains a number of rather 
slow-witted aliens. They are immobile during a game, although their positions will, of course, be 
different from game to game. 

You have a limited amount of energy, and your task in the game is to roam the galaxy, making 
use of your long- and short-range scanners when you choose to do so to locate and then destroy 
the aliens. A direct hit is not always successful, and your firing on the aliens often enrages them 
so that they fire back at you. If they hit you, the damage you sustain is measured in energy 
units, decreasing the energy you have left to use. Moving, firing, and using the scanners all con- 
sume energy. Long-range scanners use up more energy than short-range ones. 

When you run the program, you'll see the sector space drawn out in the bottom left of the 
screen. At first it will be blank except for you-the red inverse dollar sign in the middle. Under 
the sector are the words YOU ARE IN RIGEL SECTOR AT 5 5 - ENERGY 1 234 and at the top of 
the screen are your three options 1 - SCAN 2 - MOVE 3 - FIRE. You enter one of the three 
numbers. 

SCAN works in one of two ways. If you enter 1 to show you wish to scan, the words SCAN- 
NER: SHORT ( 1 ) OR LONG (2) RANGE will appear. Short-range looks at the squares immediately 
surrounding the one you are in, and reports if there is anything there. It does not tell you in 
which direction. Long-range allows you to choose the direction and gives a readout of what is 
two squares away in that direction. As I mentioned earlier, captain, long-range scanning uses up 
more energy than short-range scanning does. If you told the VIC you wished to scan north, it 
will reply SCANNER IS POSITIVE (which means an alien ship is to the north of you) or SCANNER 
IS NEGATIVE which means the square two to the north of you is empty. 

You have to try and kill as many aliens as you can before you run out of energy, but as each 
action uses up energy, you must judge your moves most carefully before making them. If you 
fire into an empty square, it will turn into an inverse blue X so you know not to shoot into that 
square again, although you may move through it if you like. A direct hit gets an inverse purple 
asterisk in the relevant square. 

You'll find that playing the game will teach you more about how to play it than these instruc- 
tions will. When you enter FIRE or MOVE as your choice, you'll be asked to indicate the direction 
you want. First the computer will ask N/S (for north or south), and if you wish to move in one of 
these directions, enter N or S. Just press RETURN if you do not want to move up or down. Then 
you'll be asked to choose from east or west. Again, just press RETURN if you do not want to 
move east or west. You can combine moves to move, for example, northeast, or southwest, if 
you like. 

The program is very tight on space, with just over 1 00 bytes left when the game is underway, 
so a number of error-trapping routines, which would have been useful, have been left out. Cer- 
tainly you should add them if you have memory. Note that the short-range scanner cannot be 
used in the outer circuit (that is, if either coordinate is 1 or 1 0). The long-range scanner cannot 
be used if either coordinate is 1 , 2, 9, or 1 0. 

There is nothing in the program to stop you from trying to move off the galactic grid, but try- 
ing to do so will cause the program to crash. Add your own choice of name for an alien in line 
9240 if you don't like mine. 
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If you have extra memory, some sound would certainly enliven the action. As well, you could 
add a routine to move the aliens slowly about, and one to put the name of a new member before 
each report (reports being direction of move or fire, location, energy level, information on 
whether you've been hit or not, artd so on), with the actual crewmember making the report 
changing from time to time. 

20 GQSUB9860 
25 GOSUB8000 

40 PR I NT " BNENEROV " I NT C E > 

41 IFE<1THEN3800 

42 I FflL>0THENPR I NT " r*T ALLY " AL 

130 PR I NT "WW -SCAN 2-MOVE 3-FIRE" : INPUTD 

156 IFD=1THENGOSUB1000 

15? IFD«2THENGOSUB2000 

158 IFB«3THENGOSUB3000 

166 GGTO40 

1000 GGSUB8000 

1010 PR I NT " amsCRNNER .= " 

1 040 PR I NT " SiiSHORT < 1 > OR " : PR I NT " SLONG < 2 ? RANGE " : I NPUTK 

1080 E*E-10*K:F*0 

1100 IFK=2THEN1500 

1 120 IFFKB+i , O = 10Rfl<B+l , C+l >*10RR<B, C+l >=10Rfi<B~l > O=10Rfi 

<B~1..C~1>*1THENF«1 = GOT 01130 
1125 IFFKB,C-l>0RPCB+l,C-l>=10Rfl<B~l,C+l>=lTHENF=l 
1 1 30 I FF=0THENPR I NT " MMEQRT I VE " : GOTO 1 670 
1146 I FF= 1 THENPR I NT " SH" .: Z* " NEAR " : GOTO 1 678 
1500 PR I NT "DIRECT I ON N-i, 8-2, E-3, W-4" = INPUTS Z=8 
1560 1 FN* 1 ANBR (. B-2 , C > ■ 1 THENZ= 1 
1 578 I FN*2RNBR < B+2 , C > - 1 THENZ* 1 
1 580 I FN=3 AND A < B , C+2 > ■ 1 THENZ« 1 
1 590 I FN=4RND A < B , C-2 > * 1 THENZ* 1 
1640 PRINT" flkSCRNNER IS " ; 
1 650 I FZ= 1 THENPR I NT " P08 I T I VE " 
1 660 I FZ=0THENPR I NT " NEG AT I VE " 
1 670 FORT* 1 TO2000 : NEXT : GO8UB8008 : RETURN 
2000 E=E~50 : ACB. C>=0 : B<B.. C>«0 
2010 fl$="" :£!*="" 
2060 INPUT " VD I RECT I ON (. N/S > " i A$ 
2180 IFA$="N"THENB=B-1 
2120 IFA*="3"THENB=B+1 
2140 PR I NT "NOW AT"B" "C 
2150 INPUT "WiiiiKE/WV ; B$ 
2160 IFB$="E"THENC=C+1 
2165 IFB**"W"THENC«C~1 
2170 PR I NT "NOW AT"E" "C 
2 1 80 FOR I = 1 TO 1 000 = NEXT 
2268 IFACB..O-1THEN5580 
2270 A-:B,C>=2:B<B,C>=2 
2290 GO8UB8000 
2300 RETURN 
3000 G=B:Af="" 
3005 PR I NT " n© I RECT ION OF F I RE " = I NPUT " < N/S > " ; fi* : I F A$= " N " THENG-Q- 1 
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3010 IFfl$="S"THENG*G+l 

3020 F=C 

3030 I NPUT " IIIIIIK E/H > " ; flf 

3120 IFfl$="E"THENF=F+l 

3130 IFR**"W"THENF=F->1 

3180 E=E-100 

3190 IFfl<6,F>OlTHEN3305 

3200 PRINT"VOU HIT THE" = PRINT'TTZ* 

3220 flL=RL+ 1 : B < G , F > =4 : G0T034 1 

3305 B<G,F>=3:PRIHT ,, S^t'0U MISSED.. SIR" 

33 1 5 FORG= 1 TO 1 000 : NEXT 

3320 PR I NT "THE "Z*" ARE" : PRINT "SHOOTING BRCK" 

3325 FORG= 1 TO 1 000 = NEXT 

3340 IF RND<0».6THEN3400 

3350 PRINT" BWTHEV HIT US! ! " : E=E-100*RND<0? =GOTO3410 

3400 PR I NT "THE "Z$" MISSED" 

34 1 FOR I = 1 TO 1 000 : NEXT : GOSUB8O00 = RETURN 

3800 PRINT'-WENERGV BANKS EXHAUSTED" 

38 1 PR I NT " WOU K I LLED " AL " AL I EN " ; : I FflLO 1 THENPR I NT " S " 

3820 PR I NT "WON THIS MI8SI0NW0UR COMMAND RATING IS " 1000*.r.flL/8> 

3830 G0T03830 

5500 PRIW'Wi'OUR SHIP HAS LANDED ON AH"Z$" SHIP" 

5540 PRINT-'WaiVQUR SHIP HAS EXPLODED" 

5550 GOTO5550 

8000 pr i nt " zmmamm" .; 

8020 FORQ=1TO10 

8045 FORP=1TO10 

8060 I FB < Q , P ) »0THENPR I NT " ■*" i 

8870 I FB < Q , P > «2THENPR I NT " SF*f " .; 

8080 I FB < G , P ) =3THENPR I NT " S3X " ; 

8890 I FB <. Q , P > -4THENPR I NT " flWk " J 

8160 NEXT: PRINT: NEXT 

8500 Q«B*C:PRINT H nti>OU ARE IN" 

8548 I FQ< 1 8THENPR I NT " ■ ANT ARES " i 

8558 I FQ>9ANDQ<20THENPR I NT " ■PROCVON " .: 

8560 I FQ> 1 9ANDQO0THENPR I NT " !SR I GEL " i 

8570 I FQ>29 ANDGK50THENPR I NT " BNEGR " ; 

8580 I FQ>49ANDQ<70THENPR I NT " 1CRN0PUS " i 

8598 I FG>69 ANDQO0THENPR I NT " BiALTR I R " ; 

8600 I FQ>89THENPR I NT " SSRG I TTRR I US " i 

8610 PRINT" SECTOR RT"B" "C 

8640 RETURN 

9008 DIMRC 10. 10> , B< 10. 10} 

9068 FORfl*lTO40:X=INTCRND(0>*10> + l-:V*INT(RND<0>#10> + l : R<X,V>ai:NEXT 

9150 B=5 : C«5 : RCB, C>*2 : B-T.B, C>«2 : RL«0 

9240 Z*="RNDROZIRNS" 

9340 E=1234 

9350 P0KE36879..25 

9990 RETURN 



144 



Biorhythms 



This program is based on the three cycles that affect us throughout our lives— the physical, 
emotional, and mental cycles. The 23-day physical cycle relates to such things as strength, ag- 
gressiveness, and endurance. The emotions are said to be affected by a 28-day cycle, which 
relates to optimism/pessimism, frustration, temper, and moodiness. The mental cycle is 33 
days long, and this relates to logic, common sense, reasoning, and ease of expression. 

When you run the program, you'll be asked to enter your date of birth (following the clear 
prompts), and the day for which you want a biorhythm calculated. The computer will give you 
three forecasts— the day before the one you've specified, the day you want, and the one that 
follows it. 

You are then given the option of asking for a new forecast (based on the same date of birth) or 
of stopping the program. A zero rating is a neutral day; positive figures are a good sign, while 
negative ones are warnings of a bad day in the area governed by that particular cycle. If all three 
are negative, you'd better stay in bed for the day. 

1© REM BI0RHVTHM8 

IS REM ALA8TAIR GOURLfl'iVTIM HARTNELL 

20 PRINT'TUPWDSWENTER YOUR DATE OF BIRTH" 

30 INPUT 'WEAR CAS 1984 V ;fl 

40 INPUT")JMOHTH <AS 7V';B 

50 INPUT"WDAY <RS 21>".:C 

60 A=*R*365 . 25+B*30 . 4+C 

70 PRINT ,, aWWWBHD HOW THE BRTE FOR YOUR BIORHTHM" 

30 INPUT "WEAR <A8 1984>";B 

90 IHPUT"KMONTH COS 7>»;C 

100 INPUT "MD AY <AS 21>";B 

1 1 B«B*365 . 25+0*30 . 4+B-A 

112 PR I NT "3" 

115 FQRF=*-1T01 

116 I FF=~ 1 THENPR I NT " ■WPRE V I 0U3 DRY ' " : B-B- 1 

117 IFF«0THENPRINT ,, BWDflY OF FORECAST: " :B*B+1 

118 1 FF« 1 THENPR I NT " ■MNEXT BAY : " : B«B+ 1 
120 C=23 

1 30 PR I NT " IDPHVS I CAL : " ; 

140 GOSUB250 

150 C-28 

1 60 PR I NT " «SM0T I OHAL : " ; 

170 GO3UB250 

180 0*33 

190 PRlNT"BiINTELLECTUAL:"; 

200 GO8UB250 

205 NEXTF 

210 PRINT"»ttttWSENTER 'V FOR A NEW FORECAST. 'H' TO STOP" 

220 GET W$:IFW$=""THEN220 

230 IFW**"Y"THEN70 

240 ENB 

250 PR I NT I NT < 1 00*3 1 N < < B- 1 NT (. B/C ) *C > /C*44/7 > > ; " V. " 

260 RETURN 
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Billboard 



This tiny program produces very big results— twice as big, in fact. You enter the "advertising 
message" you want displayed in the strings A$, B$, and C$, using the "shift right" instead of a 
space between the words. Only letters of the alphabet can be used with this program. Symbols, 
spaces, and numbers are not allowed. 

You may well wish to modify the program so that instead of A$, B$, and C$ being permanent- 
ly set, you can enter them each time you run it. Simply change line 70 into INPUT A$, line 80 
into INPUT B$, and line 90 into INPUT C$. Note that if you do this, you can only enter single 
words, and you cannot use the controls to position your words. 



10 REM BILLBOARD 

70 fl*="M^MMTHISMIS»IRMTEST" 

80 B$* " XDMirH I SMSHOMSIUHflTimiiiHRPPENS " 

90 C$="»WllGRflPHICWIDEMO" 

100 GOSUB9000 

110 PR I NT" 3" R* 

120 FORD- 1TQ3000: NEXT 

130 PR I NT " 3" B* 

1 40 F0RD= 1 TO5000 : NEXT 

150 PR I NT " 3" C* 

1 60 F0BD= 1 TO5000 : NEXT 

170 GOTOU0 

9900 P0KE36 > 28 : R=32776 = F0RB«7 1 84TO7600STEP2 : POKEB , 

PEEKCR) : POKEB+1 , PEEKXR) : R*fl+1 :. NEXT 
90 1 P0KE36879 , 25 : P0KE36S69 , 255 = P0KE36867 , 4 
9020 RETURN 
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Quack 



In this rather daft game, you have to shoot the little purple ducks flying overhead. You shoot 
by pressing the space bar. You can move yourself right and left by pressing the "Z" and "M" 
keys respectively. Your score at the end of a limited time— which clocks down on the screen 
throughout the game— relates to the number of hits you had, compared with the number of 
shots you fired, so you cannot get a high score just by firing over and over again. 

The quacks do not fly in a totally predictable manner, which adds to the challenge. The sound 
and display when you score a "hit" are quite satisfying. Note that there is a time penalty im- 
posed every time you press the space bar, another good reason for firing with moderation. 

10 REM QUACK 

20 PRINT"r3":P0KE36879,122 

30 B«7:H=10:8C«0:HI*0:F(>0 

40 FORP«1TO50 

45 IFP-41THENPRINT"W 

50 PRINT"3SnME"50-P" SHOTS "FC 

100 FORZ«=0TO20 

110 P0KE7768+Z, 127 

115 P0KE7769+Z,31 

120 P0KE3848S+Z,4 

125 P0KE38439+Z.4 

142 GO8UE500 

143 SC*SC+HI 

144 I FH I = 1 THENP0KE36S79 > 8 = PQKE36379 .122 

145 IFHI»lTHENPRINT"aWSCORE"SC:HIa0 

147 P0KE38488+Z.E 

148 P0KE38439+Z,B 

1 50 I FRND < 1 ) > . 4THEH I FZ< 1 7THENZ*Z+2 

160 NEXT 

170 NEXTP 

180 PR I NT "WOT I ME 18 UP" 

190 PR I NT "SUCCESS RRTE" I NT a 0000* <SC+. 00001 > AFC+. 00001 > >/100"fJ» 

200 END 

508 P0KE33362+H.B 

520 OETR$ 

530 IFFI**"Z"THENIFH>1THENH*H-1 

548 I Ffl** " M " THEN I FH<20THENH*H+ 1 

560 P0KE3S862+H.0 

570 POKES 142+H, 88 

575 IFfl**" "THENGO8UB1000 

530 RETURN 

1080 REM SHOT 

1002 FC*FC+1 :P*P+1 = IFP>49THENRETURN 

1003 IFP«41THENPRINT"iS8 

1004 PRINT"»riME"50-P" SHOTS "FC 

1005 FORV=3098TO7768STEP-66 
1010 POKEV+H,90 
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1020 POKEV+H+30720,0 
1050 POKEV+H+30720.B 
1060 NEXT 

1065 IFH*Z0RH=Z+1THENHI«1 =P0KE36878, 15:P0KE3687 
1070 || T t R H N F0 ^^03:HEXT:P0KE3637 8 , 
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Magic Square 



The clever computer generates a three-by-three magic square, replacing three or four of the 
numbers with zero. As you probably know, each line of numbers in magic square (vertically, 
horizontally, and diagonally) adds up to the same total. It is your task to work out what the miss- 
ing numbers are. 

If there is already at least one complete row, it is fairly easy, with a bit of swift mental arith- 
metic, to determine (a) the total and (b) what digit will complete one of the other rows. This new 
digit should help you with another row and so on. If, however, there is not a single complete 
row, as sometimes happens, your task will be much harder. 

The computer counts the number of moves it takes you to complete the square, and then 
gives you a score at the end, which is related to the number of wrong guesses you made on your 
way to solving the problem. 

1© REM MAGIC SQUARE 

20 fla I NT < RNH < > *9 > + 1 : M-6 

30 PRINT":]": J*0 

40 B« I NT < RND <. ■> *9 > + 1 = C- 1 NT < RND < > *9 > + 1 

50 IFA=BORA«CQRB*CTHEN40 

60 A< 1 >=A+B : fl<2>-fl-<B+C> : A<3)=A+C = A<4>*A-B+C : A<5>=A 

70 A < 6 > - A+B-C : A < 7 ) «A-C : A < 3 > * A+B+C = A < 9 > -fl-B 

140 F=0 

150 FQRZ-1T09:B<Z>-FKZ> 

160 IFB<Z>-0THENF«1 

1 78 NEXT : I FF« 1 THENRUN 

180 B<A>*0 

190 D«INT<RND<0>*9>+1 

200 I FDOflfiNDDOBflNDDOCTHENM-M- 1 

205 B<D>«0 

210 BCB5-B 

220 BCC>«0 

225 G0T0235 

230 OOTO310 

235 JssJ+l 

240 PRINT"W!W0»iMGUES8 NO- "J 

250 PR I NT" WW " 

255 F0RZ«1T09 

260 PRINTBCZ);" ".: 

270 I FZ-30RZ-6THENPR I NT : PR I NT 
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280 NEXT: PRINT 

298 IFMOSTHENPRIHT-'MfiW^OU 

300 IFM*9THENPRINT"WHMS&r'0U 

INK 10000/ J > 
305 I FM-9THENF0RT* 1 TO6000 : NEXT : RUN 
310 INPUT-WVOUR GUESS ";W 
320 M«0 
330 FQRZ-1T09 
350 IFfl<Z>»WTHENB<Z>«W 
360 IFB<Z>O0THENM»M+1 
370 NEXT 
380 G0T0235 



HflVE«"M" WRIGHT 

HAVE SOLVED IT" = PRINT "WOU SCORED" 



Simon 



Simon appears simple to play, but can be infuriatingly difficult. Your task is to copy the grow- 
ing string of numbers the VIC creates. It will start with one number between one and four, print- 
ing on the screen in a distinctive color, in a specific position, and sounding a corresponding note. 
You repeat the number, and it will reappear, with the position, color, and sound as before ... if 
you are correct. The first number will then be repeated, followed by a second number. You must 
repeat both of these, continuing as the sequence of notes and numbers builds up, until you 
either get a sequence of seven correct or make a mistake. 

You'll find that you'll improve dramatically with practice. Note that if the same number ap- 
pears twice in a row, you have to remove your finger from the key after pressing it the first time. 
The border changes throughout the game to keep you on your toes. 



5 REM SIMON 

10 Fr$a>="rrtl , W 

20 fl*<2>*"rSVi2W 

30 fl*<3>="3fW3YV' 

40 FI$<4>="13WW 

50 FQRT« 1 T04 : READS < T ) = NEXT 

60 P0KE36373.15:PRINT H ^" 

70 F0RC=1T07 

80 LEtB<O«INT<RND<0>#4> + i 

90 NEXT 

95 LETX 55 ! 

1 00 FORQs 1 TOX : P0KE36879 , 23+X 

110 GOSUB700 

150 NEXTQ 

160 F0RQ=»1T0X 

1 70 GETE$ : I FE*= " " THEN 1 70 

180 LETF*VFlL<E*> 

198 IFFOB<Q>THEN500 

200 GOSUB700 

260 NEXTQ 
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270 X*X+1 = IFX>7THEN2S0 

275 FORT= 1 TO600 : NEXT : GOTO 1 00 

280 PR I NT "WELL DONE. VOU DID IT" 

290 GOTO290 

500 PR I NT "VOU BLEW IT" 

510 PR I NT "VOU SCORED "X-l 

520 END 

700 C*«fl*<B<Q)> 

705 FORT*0TO1 :PRINT"«I" 

710 F0RR«1T03«<B<Q>+T> 

720 PR I NT "1*1".; 

730 NEXT 

740 PR INTO* 

745 NEXTT 

750 P0KE36875,8<B<G>> 

760 FORV= 1 TO350 ■ NEXT 

762 POKE36875.0 

765 PR I NT "IT 

770 RETURN 

780 DP.TP, 195,207,215,225 



Roulette 



Roulette is one of the classic gambling games, and with this program you're ready to try out 
your "system" for beating the wheel . . . without losing your shirt. 

The first program allows full casino betting, playing by the European rules, with a wheel with 
the numbers one to 36, plus zero. The American wheel used in the second program has the 
numbers one to 36, plus zero and double zero. 

The roulette table has the numbers one to 36, some in black and some in red, on it, plus the 
zero (and, in the case of the American system, the double zero). You can place bets on a wide 
variety of number combinations. Once the bets are placed, the wheel is spun, and the croupier 
throws a ball into the wheel, in the opposite direction to the spin. The ball ends up resting on one 
of the numbers and this determines your fate. 

When you run the program, you'll see the words YOU HAVE 1 00 CHIPS. After a short pause, 
the words MESSIEURS, FAITES VOS JEUX (Gentlemen, place your bets) appear. You then enter 
a letter of the alphabet from A to P (or Q to quit the game) which indicates which type of bet you 
wish to place. Here is the key to enter your bets: 

A — A single number 

B — Two adjoining numbers 

C — Three numbers in adjoining columns 

D — Six numbers in adjoining columns 

E — Four numbers in a square 

F — Numbers one to 1 2 (known as the First Twelve) 

G — Numbers 1 3 to 24 (the Second Twelve) 
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H — Numbers 25 to 36 (the Third Twelve) 

I — Numbers one to 1 8 (Low) 

J - Numbers 1 9 to 36 (High) 

K — 1 2 numbers in a horizontal row 

L — Two adjacent horizontal columns 

M — Any red number (see below for a list of red and black numbers) 

N — Any black number 

O — Any even number 

P — Any odd number 

Q — To quit the game 

The red numbers are: 

1,3,5,7,9, 12, 14, 16, 18, 19,21,23,25,27,30,32,34,36 

The black numbers are: 

2, 4, 6, 8, 1 0, 1 1 , 1 3, 1 5, 1 7, 20, 22, 24, 26, 28, 29, 31 , 33, 35 

You will not be allowed to bet more chips than you have, and you may withdraw from the wheel 
at any time. The bank only holds 1 ,000 Chips; so if you get a total of 1 , 1 00 in hand (the bank's 
1 000, plus your original 1 00 chips), the game must end, when you'll be the one who broke the 
bank at Monte Carlo. 

Once you've spent a bit of time gambling with this program, you may wish to try some of the 
"systems" that have evolved for roulette. One of the most popular is the Martingal, in which 
you stick to the same number, or group of numbers, doubling the bet each time you lose, so you 
bet one chip the first spin, two the next (if you lost on the first), four the next, and so on. This 
ensures, in theory, that any win should wipe out all previous losses, and give you a profit as 
well. Most systems are systematic only in that they help you lose your money in record time. 
However, it is far better to try out a system with the program than with an actual wheel. Sir 
Hiram Maxim, the inventor of the first automatic repeating gun (hardly an achievement likely to 
make him an expert on roulette wheels), is said to have said that "a bad system is better than 
none at all." Balance this against the advice of William Makepeace Thackeray: "You have not 
played yet? Do not do so; above all, avoid a martingale if you do." 

1 REM ROULETTE - EUROPEAN 

3 P0KE36879.26 

5 PRINT":!": GOTO20 

1 FORK* 1 TQS00 = NEXT : PR I NT : RETURN 

20 BIMB<24>:CH=100 

40 PRINT"V0U HAVE "CH" CHI PS" 

50 GOSUB10 

60 PR I NT "MESSIEURS, FAITE8 VQS JEUX" 

70 GETA*:IFA$=""THEN70 

72 FNASC < A$ > -64 = I FA< 1 0RA> 1 7THEN70 

75 IFA*17THEN4000 

80 FORQ* 1 T024 : B < Q > «-93 : NEXT 

110 INPUT "SHOW MANV CHIPS";N: IFN>CHTHEN110 

120 CH*CH-N 
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13© IFA=1THENGOSUB2600 

131 IFA*2THENGQSUB2640 

132 IFA*3THENGQSUB2630 

133 IFA*4THENGQ3UB2720 

134 IFA*5THENGOSUB2760 
133 IFA*6THENGOSUB2800 

136 IFA*7THENGOSUB2S40 

137 IFA*8THENGOSUB2830 

138 IFA*9THENGOSUB2920 

139 IFA=10THENGOSUB2960 

1 40 i FA* 1 1 THEHGOSUB3000 

141 IFA*12THENGO8UB3040 

142 IFfl*13THENGOSUB3080 

143 IFA*14THENGOSUB3120 

144 IFA*15THENGQSUB3160 

145 IFA=16THENGO3UB3200 
156 G0SUB18 

160 PR I NT "WHEEL IS SPINNING" :GOSUB 10 

170 GOSUB10:PRINT"r3" 

180 FQRB* 1 T075 : C* I NT < RND < > *37 > = PR I NT " EMMS" C : FORT* 1 T03*B 

185 NEXT : GOSUB5000 : NEXT 

198 GOSUB10:PRINT"BALL HAS ENDED AT"C 

240 Y*0=E*1 

250 I FB < E > *CTHENY= 1 : GOTO270 

260 I FE<24THENE*E+ 1 = G0T0258 

270 IFV*0THEN370 

290 WI*OD*N:CH*CH+WI 

310 PR I NT "CONGRATULATIONS, YOU HAVE WON "WI" CHI PS" 

338 GOSUB10 

350 GOSUB400 

360 GOTO40 

370 PR I NT "SO YOU LOSE" : GOTO330 

480 IFCH<1THENPRINT"Y0U HAVE RUN OUT OF CHIPS": END 

410 IFCH>1100THENPRINT"VOU HAVE BROKEN THE EANK!":END 

420 RETURN 

2600 I NPUT " WH I CH NUMBER " ; D : B < 1 ) *D : 0D*35 : RETURN 

2640 I NPUT "WHICH TWO NUMBERS" ;B<1> ,B<2> :0D*17= RETURN 

2680 PR I NT "WHICH NUMBER" : INPUT" IN LEFT COLUMN" ;B 

2690 FORE*0TO2 : B < E+ 1 > *D+E : NEXT : OD* 1 1 = RETURN 

2720 INPUT"JFIRST NUMBER OF 8IX h ;D:FORE*0TQ5:B<E+1>*D+E:NEXT:OD*5: 

RETURN 
2760 INPUT" 1ST NUMBER IN SQUARE "; D : FORE*0TO3 = B<E+1 >*D+E : IFE*2 

THEND*D+1 
2770 NEXT '• 0D*3 : RETURN 

2800 FORE* 1 TO 1 2 = B < E > *E : NEXT : 0D*2 = RETURN 
2840 FORE* 1 TO 1 2 : B < E > *E+ 1 2 : NEXT : 0D*2 : RETURN 
2838 FORE* 1 TO 1 2 : B < E > *E+24 : NEXT : 0D*2 : RETURN 
2920 FORE* 1 TO 1 8 = B < E > *E : NEXT : OD* 1 = RETURN 
2960 F0RE*1T08 :B<E)*E+i8= NEXT : OD*l : RETURN 
3008 PR I NT "SLOW NUMBER AT END" = INPUT "OF LINE" J D 
30 1 FORE*0TO 1 1 '• B <. E+ 1 > *3*E+D : NEXT : 0D*2 : RETURN 
3040 INPUT "BLOW NO. 1ST COLUMN" ;D1 = I NPUT "SLOW NO. 2ND COLUMN"; 

D2= IFABS<D1-D2»1THEN3040 
3050 FORE*0TO 1 1 : B < E+ 1 > *3*E+D 1 ■ B <. E+ 1 3 > *3#E+D2 : NEXT = OD* . 5 J RETURN 

3080 RESTORE 
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3090 FORE* 1 TO 1 3 = RE ABB < E > : NEXT J GD= 1 : RETURN 

3 1 20 RESTORE : FORE* 1 TO 1 8 = RE ADZ : NEXT : FORE* 1 TO 1 S ■ RE ADB < E > = NEXT : OD* 1 : 

RETURN 
3 1 60 FQRE*2T0368TEP2 : B <. E/2 > *E : NEXT : OD* 1 : RETURN 
3200 FORE* 1 T0358TEF2 : B < < E+ 1 > /2 > =E : NEXT : OD* 1 : RETURN 
3210 DRTA1,3,5,7,9, 12, 14, 16, 18, 19,21,23,25,27,30,32,34,36 
3220 DATA2, 4, 6, 8, 10,11, 13, 15, 17, 20, 22, 24, 26, 28, 29, 31 , 33, 35 
4000 PRINT"MMWt'OU ARE WITHDRAWING FROM THE GAME WITH M CH" CHIPS" 
4010 END 

5000 P0KE36878,5 

5010 P0KE36877 , 1 30+B : P0KE36875 , 1 30+B 
5020 P0KE36878 , : P0KE36877 , : P0KE36375 , 
5030 RETURN 

1 REM ROULETTE - AMERICAN 

3 P0KE36379,26 

5 PRINT'T]": GOTO20 

10 FORK* 1TO800: NEXT: PR I NT: RETURN 

20 DIMB<24>:CH*100 

40 PRINT"VOU HAVE "CH" CHI PS" 

50 GOSUB10 

60 PR I NT "MESSIEURS, FAITES VOS JEUX" 

70 GET m : I F A*= " " THEN70 

72 A* ASC < A$ > -64 : 1 F A< 1 OR A> 1 7THEN70 

75 IFA*17THEN4000 

80 FQRQ* 1 T024 : B < Q > *-99 = NEXT 

110 INPUT"-JSHOW MANV CHIPS" ;N : IFN>CHTHEN1 10 

120 CH*CH-N 

130 IFR*1THENGO8UB2600 

131 IFA*2THENGOSUB2640 

132 IFA=3THENGOSUB2680 

133 IFA*4THENGOSUB2720 

134 IFR=5THENGOSUB2760 

135 IFA*6THENGOSUB2800 

136 IFA*7THENGOSUB2S40 

137 IFA*8THENGOSUB2880 

138 IFA«9THENGOSUB2920 

139 IFA*10THENGO8UB2960 

140 IFA*11THENGOSUB3000 

141 IFR*12THENGQ8UB3040 

142 IFA*13THENGOSUB3080 

143 IFA=14THENGOSUB3120 

144 IFA*15THENGOSUB3160 

145 IFA*16THENGOSUB3200 
150 GOSUB10 

160 PR I NT "WHEEL IS SPINNING" =GOSUB 10 

170 GOSUB10: PRINT":]" 

180 FORB* 1 T075 = C* I NT < RND < > #38 > - 1 • PR I NT " 3WWW" C : FORT* 1 T03*B 

182 IFCO-lTHENPRINT"nWWWaSP'C 

183 IFC*-lTHENPRINT"3EDlWMfilDOUBLE ZERO" 

184 FQRT*1TQ3*B 

1 85 NEXT = GOSUB5000 : NEXT 

1 86 GOSUB 1 = PR I NT " S3" 
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187 IFCO-lTHENPRINT"BALL HAS LANDED flT"C 

190 IFC*-1THENPRINT"BALL HAS LANDED ON DOUBLE ZERO" 

240 V=0=E=1 

250 I FB < E > =CTHEN V* 1 : GOTO270 

260 IFE<24THENE=E+i:GOTO250 

270 IFV=>0THEN370 

290 WI*OD*N:CH*CH+WI 

310 PR I NT "CONGRATULATIONS, VOU HAVE WON" W I "CHIPS" 

330 GOSUB10 

350 GOSUB400 

360 GOTO40 

370 PR I NT "SO VOU LOSE" = GOTO330 

400 IFCH<1THENPRINT"V0U HAVE RUN OUT OF CHIPS": END 

410 IFCH>1100THENPRINT"VOU HAVE BROKEN THE BANK!" : END 

420 RETURN 

2600 I NPUT " WH I CH NUMBER " ; D : B < 1 > *D : 0D*35 : RETURN 

2640 INPUT" JSWHICH TWO NUMBERS" JB(1) ,B<2> =0D*17: RETURN 

2680 PR I NT "'JSWHICH NUMBER" ■ INPUT" IN LEFT COLUMN" ;D 

2690 FORE*0TO2 :. B < E+ 1 > =B+E = NEXT : OD* 1 1 = RETURN 

2720 INPUT'-JFIRST NUMBER OF SIX" ;D'FORE»0TO5:BCE+i>«D+E 'NEXT: 0D"5: 

RETURN 
2760 I NPUT "1ST NUMBER IN SQUARE".; D:FORE*0TO3 = B<E+1>=D+E: I FE=2 

THEND*D+1 
2770 NEXT = 0D=8 : RETURN 

2800 FORE- 1 TO 1 2 = B < E > *E = NEXT = 0D*2 = RETURN 
2840 FORE* 1 TO 1 2 : B < E ) *E+ 1 2 : NEXT : 0D*2 : RETURN 
2880 FORE* 1 TO 1 2 : B < E > *E+24 = NEXT : 0D*2 ■ RETURN 
2920 FORE* 1 TO 1 8 : B < E > *E = NEXT : OD* 1 = RETURN 
2960 FORE* 1 T08 : B < E > =E+ 1 8 = NEXT : OD* 1 : RETURN 
3080 PR I NT "'.SLOW NUMBER AT END" : I NPUT "OF LINE'MD 
30 1 FORE=0TO 1 i : B < E+ 1 > -3WE+D : NEXT : 0D*2 : RETURN 
3040 I NPUT "BLOW NO- 1ST COLUMN" ;D1 : I NPUT" WLOW NO. 2ND COLUMN"; 

D2 : 1 F ABS < D 1 -D2 » 1 T HEN3040 
3050 FQRE*0TO 1 1 : B < E+ 1 > *3*E+D 1 : B < E+ 1 3 > *3*E+D2 : NEXT : OD* . 5 : RETURN 
3088 RESTORE 

3890 FORE* 1 TO 1 8 : READB <. E > : NEXT : OD* 1 = RETURN 
3 1 20 RESTORE : FORE* 1 TO 1 8 : READZ : NEXT : FORE* 1 TO 1 8 '• READB C E > : NEXT : OD* 1 • 

RETURN 
3 1 60 F0RE=2T036STEP2 = B < E/2 > *E : NEXT : OD* 1 = RETURN 
3200 FORE* 1 T035STEP2 = B < < E+.l > /2 ) *E : NEXT : OD* 1 : RETURN 
3210 DATA1, 3,5, 7, 9, 12, 14, 16, 18, 19, 21, 23, 25, 27, 30,32, 34, 36 
3220 DATA2, 4, 6, 8, 10, 11, 13, 15, 17, 20, 22, 24, 26, 28, 29, 31, 33, 35 
4008 PRINT"MfiW?T'OU ARE WITHDRAWING FROM THE GAME WITH "CH" 

CHIPS" 
4010 END 

5080 P0KE36878,5 

50 1 P0KE36877 , 1 30+B : P0KE36875 , 1 30+B 
5820 P0KE36373 , = P0KE36877 , = P0KE36875 , 8 
5030 RETURN 
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Appendix 



Error Messages 



BAD DATA.. .String data was received, but program expecting numeric data. 

BAD SUBSCRIPT. ..Element of an array outside of the range specified in the DIM statement. 

CAN'T CONTINUE. ..The CONT command will not work, either because the program was never 
RUN, there has been an error, or a line has been edited. 

DEVICE NOT PRESENT.. .The required I/O device was not available for an OPEN, CLOSE, CMD, 
PRINT#, INPUT#, orGET#. 

DIVISION BY ZERO. ..Division by zero impossible. 

EXTRA IGNORED. ..Too many items of data entered in response to an INPUT statement. Only 
the first few items accepted. 

FORMULA TOO COMPLEX. ..String expression should be split into at least two parts. 

ILLEGAL DIRECT.. .INPUT can only be used within a program, and not in direct mode. 

ILLEGAL QUANTITY. ..Number used as argument of function or statement out of allowable 
range. 

LOAD. ..Problem with program on tape. 

NEXT WITHOUT FOR. ..Either incorrectly nesting loops, or having a variable name in a NEXT 
statement that doesn't correspond with one in a FOR statement. 

OUT OF DATA... A READ statement executed but no data left unREAD in DATA statement. 

OUT OF MEMORY... No more RAM available. May also occur when too many FOR loops nested, 
or too many GOSUBs in effect. 

OVERFLOW... The result of a computation is larger than 1 .701 41 884E + 38. 

REDIM'D ARRAY.. .An array may only be DIMensioned once. 

REDO FROM START... Character data was typed in during an INPUT statement when numeric 
data was expected. Just re-type the entry so that it is correct, and the program will continue by 
itself. 
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RETURN WITHOUT GOSUB... RETURN statement encountered, when no GOSUB command 
issued. 

STRING TOO LONG... A string can contain up to 255 characters. 

SYNTAX... A statement is unrecognizable by the VIC. A missing or extra parenthesis, misspelled 
keywords, etc. 

TYPE MISMATCH... This error occurs when a number is used in place of a string, or vice-versa. 

UNDEF'D FUNCTION...A user defined function was referenced, but it has never been defined 
using the DEF FN statement. 

UNDEF'D STATEMENT... An attempt was made to GOTO or GOSUB or RUN a line number that 
doesn't exist. 
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zm>! pow1 boom! 

Arcade Gams fa- the Vic- 20 



Tim HartnelJ and Mark Ramshaw 



ZAPI POWI BOOM! Now you can play arcade games at home on your exclt- 
■ng^C-20 — making the most off your computer's powerful color and sound 
potentlall 

i '$. ; l 

Just ehter the programs as they are listed, and you'lKeqjoy.hours of splendid color effects 

and a limitless range of noises. Or, tailor the programs to adapt your own ideas to them — 

there afte plenty of ideas within the game to work with. 

Write poetry with your VIC, work out biorhythms, create messages, in double-sized char- 



• wwwin^ j'ltiiUKrtfinM^uiiiBiirjTir 



program^ you'll find in this fun-filled book: 

Gunflght — outshoot the fastest draw in town, VIC. Move up and down on the screen, 
avoiding VIC's shots and fire back. Good shooting, partner. 

Scramble —Bomb the enemies defense installations and shoot down fighters for points. 
As you move off the right of the screen, you appear on a new landscape. 
Avoid the enemy rockets and fighters as they stream through the skies. The 
small"Ted t»affs are fuel dumps and the large circular objects on stilts are 
ammo dumps. And be careful not to get hit by the fire from the ground 
-^ ^Jnstallationsl 

Airplane^— You attempt to land your passengers safely on the runway— all of the 
\ controls are up to you I 

Space Birds. Arkenstone. Symphony for a Melancholy Computer. Codebreaker. All these 
games and many, many more are includedl 

All programs fit the standard memory VIC-20. Several are supplied with special versions so 
you can use joysticks if you have them. Nonjoystick versions are also included. All games 
have been extensively play-tested . . . and have been passed with flying colors. Don't plan 
on going out too much in the next few months. You won't be able to tear yourself away 
from your VIC-201 ^ 
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